Wie schützt man Kopf- und Fußzeile in Excel?

In Excel können wir Zellen schnell und einfach schützen, aber haben Sie jemals versucht, die Kopf- und Fußzeile zu schützen, um zu verhindern, dass andere sie ändern? Normalerweise gibt es im Arbeitsblatt keinen direkten Weg, um diese Aufgabe zu lösen, aber der folgende VBA-Code könnte Ihnen helfen.

Kopf- und Fußzeile mit VBA-Code schützen

Kopf- und Fußzeile mit VBA-Code schützen

Kopf- und Fußzeilen sind nützlich, wenn wir Arbeitsblätter drucken. Um zu verhindern, dass sie von anderen geändert werden, führen Sie bitte die folgenden Schritte aus:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie dann auf ThisWorkbook im Abschnitt VBAProject, um ein leeres Modul zu öffnen, und kopieren Sie den folgenden Code in das Modul:

VBA-Code: Kopf- und Fußzeile schützen

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

Hinweis: Sie können den Inhalt der Kopf- oder Fußzeile an der entsprechenden Stelle im obigen Code einfügen.

3. Speichern und schließen Sie diesen Code. Wenn Sie nun auf die Schaltfläche Speichern klicken, um die Arbeitsmappe zu speichern, wird der geänderte Inhalt der Kopf- oder Fußzeile automatisch auf die ursprünglichen zurückgesetzt, falls Sie versucht haben, die Kopf- oder Fußzeile zu ändern. Siehe Screenshot:

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!