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

网友投稿 484 2024-01-09

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

在Excel中，我们可以快速轻松地保护单元格，但是，您是否曾经尝试过保护页眉和页脚以防止其他人修改它们？通常，没有直接的方法可以解决工作表中的此任务，但是，以下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

Copy

备注：您可以将页眉或页脚内容插入上述代码中的相应位置。

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。