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:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
