Jak chránit záhlaví a zápatí v aplikaci Excel?

V aplikaci Excel můžeme buňky chránit rychle a snadno, ale zkusili jste někdy chránit záhlaví a zápatí, abyste zabránili ostatním v jejich úpravách? Obvykle neexistuje žádný přímý způsob, jak vyřešit tento úkol v listu, ale následující kód VBA vám může udělat laskavost.

Chraňte záhlaví a zápatí pomocí kódu VBA

Chraňte záhlaví a zápatí pomocí kódu VBA

Záhlaví a zápatí jsou pro nás užitečné při tisku listu, abyste zabránili jejich změně jinými, proveďte následující kroky:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Poté dvakrát klikněte Tato pracovní kniha pod Projekt VBA sekce otevřete prázdný modul a poté zkopírujte a vložte následující kód do modulu:

Kód VBA: Chraňte záhlaví a zápatí

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

Pozor: Obsah záhlaví nebo zápatí můžete vložit do příslušného umístění ve výše uvedeném kódu.

3. A poté tento kód uložte a zavřete, a to při kliknutí Uložit Tlačítko pro uložení tohoto sešitu, upravený obsah záhlaví nebo zápatí se automaticky vrátí k původním, pokud jste se pokusili změnit záhlaví nebo zápatí, viz screenshot: