如何在Excel中保护页眉和页脚？

在Excel中，我们可以快速轻松地保护单元格，但是，您是否曾经尝试过保护页眉和页脚以防止其他人修改它们？ 通常，没有直接的方法可以解决工作表中的此任务，但是，以下VBA代码可能会帮您一个忙。

用VBA代码保护页眉和页脚

用VBA代码保护页眉和页脚

页眉和页脚对于我们在打印工作表时很有用，为防止其他人更改它们，请执行以下步骤：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 然后双击 的ThisWorkbook 在下面 VBA项目 部分以打开空白模块，然后将以下代码复制并粘贴到模块中：

VBA代码：保护页眉和页脚

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。 然后，现在，在单击的同时保存并关闭此代码 优惠 按钮保存此工作簿，如果您尝试更改页眉或页脚，则修改后的页眉或页脚内容将自动恢复为原始内容，请参见屏幕截图：