Note: The other languages of the website are Google-translated. Back to English

كيفية حماية الرأس والتذييل في إكسيل؟

في Excel ، يمكننا حماية الخلايا بسرعة وسهولة ، ولكن هل حاولت يومًا حماية الرأس والتذييل لمنع الآخرين من تعديلها؟ في العادة ، لا توجد طريقة مباشرة لحل هذه المهمة في ورقة العمل ، ولكن رمز VBA التالي قد يفيدك.

حماية الرأس والتذييل برمز VBA


السهم الأزرق الحق فقاعة حماية الرأس والتذييل برمز VBA

الرأس والتذييل مفيدان لنا عند طباعة ورقة العمل ، لمنع تغييرهما من قبل الآخرين ، يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم انقر نقرًا مزدوجًا ThisWorkbook تحت مشروع VBAP لفتح وحدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:

كود فبا: حماية الرأس والتذييل

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call ProtectHF
End Sub
Private Sub Workbook_Open()
    Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
    ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
    ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
    ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
    ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
    ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
    Application.ScreenUpdating = True
End Sub

doc حماية رأس تذييل 1

ملاحظة: يمكنك إدراج محتوى الرأس أو التذييل في الموقع المقابل في الكود أعلاه.

3. ثم احفظ وأغلق هذا الرمز ، الآن ، أثناء النقر حفظ لحفظ هذا المصنف ، سيعود محتوى الرأس أو التذييل المعدل إلى المحتوى الأصلي تلقائيًا إذا حاولت تغيير الرأس أو التذييل ، انظر لقطة الشاشة:

doc حماية رأس تذييل 2


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (8)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحببت الرمز لحماية رأس الصفحة وتذييلها ، هل هناك طريقة لتغيير حجم الخط ونمطه ولونه في الكود بحيث يتم استبداله دائمًا بخط أكبر؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، استخدم هذا مع اسم الورقة التلقائي وموقع الملف ورقم الصفحة وعند الحفظ يتطلب منك النقر فوق كل حقل للطباعة بشكل صحيح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ملاحظات: Puede insertar el contenido del encabezado o pie de página en la ubicación developeriente en el código anterior.
No entiendo ese paso، por favour si pueden explicarme، lo agradecería.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد إغلاق ملف Excel وإعادة فتحه ، لا يزال من الممكن حذف الرأس / التذييل. فكيف تصلح هذا؟ 
شكرا جزيلا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا تريسي ، عند إغلاق المصنف ، يجب عليك حفظه باسم مصنف Excel ممكن بماكرو التنسيق ، سيؤدي هذا إلى حفظ الرمز. إعادة فتح هذا الملف في المرة القادمة ، يرجى النقر فوق تمكين المحتوى زر من أعلى شريط الصيغة لتنشيط الكود. من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Posso inserir uma imagem no cabeçalho؟

Porque o meu cabeçalho é o logotipo da empresa.

شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
J'aime beaucoup، mais ce n'Est qu'une sem-sécurité pour l'en-tête. معدل تعديل الصور والملفات مع تعديل الصفحة. Comment je pourrais empêcher toute modification taxement comme avec la protection de la feuille ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مايكل،
في الواقع ، عند طباعة ورقة العمل ، لا يتم تغيير الرأس أو التذييل. إنه يغير فقط العرض في معاينة الطباعة.
يرجى المحاولة مرة أخرى ، شكرا لك!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL