如何在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

doc保护页眉页脚1

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

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

doc保护页眉页脚2

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析：智能执行 \| 生成代码 \| 创建自定义公式 \| 分析数据并生成图表 \| 调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项 \| 删除空白行 \| 合并列或单元格而不丢失数据 \| 不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup \| 多值VLookup \| 跨多个工作表的 VLookup \| 模糊查询 ....
	高级下拉列表: 快速创建下拉列表 \| 依赖下拉列表 \| 多选下拉列表 ....
	列管理器: 添加特定数量的列 \| 移动列 \| 切换隐藏列的可见性状态 \| 比较范围和列 ...
	特色功能: 网格焦点 \| 设计图 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 资源库（自动文本） \| 日期选择器 \| 合并工作表 \| 加密/解密单元格 \| 按列表发送电子邮件 \| 超级筛选 \| 特殊过滤器（过滤粗体/斜体/删除线...）...
	前 15 个工具集: 12 文本工具 (添加文本, 删除字符，...） \| 50+ 图表类型 (甘特图，...） \| 40+ 实用公式 (根据生日计算年龄，...） \| 19 插入工具 (插入二维码, 从路径插入图片，...） \| 12 转化工具 (小写金额转大写, 货币兑换，...） \| 7 合并与拆分工具 (高级组合行, 分裂细胞，...） \| ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

产品描述

阅读更多免费下载...

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载...

Comments (8)

No ratings yet. Be the first to rate!

Michael

about 1 year ago

#40014