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

في 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

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

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