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

在Excel中，我们可以快速轻松地保护单元格，但您是否尝试过保护页眉和页脚以防止他人修改它们呢？通常情况下，在工作表中没有直接的方法来完成此任务，但以下VBA代码可能会对您有所帮助。

使用VBA代码保护页眉和页脚

使用VBA代码保护页眉和页脚

在打印工作表时，页眉和页脚对我们非常有用。为防止他人更改它们，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 然后双击 VBAProject 部分下的 ThisWorkbook 以打开一个空白模块，然后将以下代码复制并粘贴到该模块中：

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. 然后保存并关闭此代码。现在，当单击“ 保存”按钮保存此工作簿时，如果您尝试更改页眉或页脚，则修改后的页眉或页脚内容将自动恢复为原始内容，如下图所示：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！