Hogyan lehet megvédeni a fejlécet és a láblécet az Excelben?

Az Excel programban gyorsan és egyszerűen megvédhetjük a cellákat, de megpróbálta már megvédeni a fejlécet és a láblécet, hogy megakadályozza, hogy mások módosítsák őket? Általában nincs közvetlen módja ennek a feladatnak a munkalapon történő megoldására, de a következő VBA-kód jót tehet Önnek.

Védje a fejlécet és a láblécet VBA kóddal

Védje a fejlécet és a láblécet VBA kóddal

A fejléc és a lábléc hasznos számunkra a munkalap nyomtatásakor. Annak megakadályozására, hogy mások megváltoztassák őket, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson duplán Ez a munkafüzet alatt a VBAProject szakaszban egy üres modul megnyitásához, majd másolja és illessze be a következő kódot a modulba:

VBA kód: A fejléc és a lábléc védelme

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

Megjegyzések: A fejléc vagy a lábléc tartalmát beillesztheti a fenti kód megfelelő helyébe.

3. Ezután mentse el és zárja be ezt a kódot, miközben kattint Megtakarítás gombra a munkafüzet mentéséhez, a módosított fejléc vagy lábléc tartalma automatikusan visszatér az eredetihez, ha megpróbálta megváltoztatni a fejlécet vagy láblécet, lásd a képernyőképet: