Word 用宏命令实现锁定页眉页脚的两种方式

最新推荐文章于 2024-10-30 21:16:48 发布

ouyangguangfly

最新推荐文章于 2024-10-30 21:16:48 发布

阅读量2.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Word Office 文章标签： Word 宏 VBA 锁定页眉宏命令

本文链接：https://blog.youkuaiyun.com/ouyangguangfly/article/details/89642303

Office 同时被 2 个专栏收录

1 篇文章

订阅专栏

Word

0 篇文章

订阅专栏

本文介绍了两种在Word中保护和解锁文档的方法。方式一通过禁用除表单字段外的所有编辑，允许添加批注和编号，但不允许删除页眉页脚。方式二则允许阅读模式下的全文访问，禁止删除页眉页脚，但增强批注和编号的灵活性。两种方式各有优缺点，适用于不同场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方式一：

Sub protHeader()
'取消保护
If Not ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Unprotect (“123456”)
End If
Dim currentSection As Section
'如果只有1节就在最前面插入一个连续分节符
If ActiveDocument.Sections.Count = 1 Then
Selection.HomeKey Unit:=wdStory
Selection.InsertBreak Type:=wdSectionBreakContinuous
End If
'将所有节设置为不选中
For Each currentSection In ActiveDocument.Sections
currentSection.ProtectedForForms = False
Next
'保护起来
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=WdProtectionType.wdAllowOnlyFormFields, Password:=”123456″, NoReset:=True, EnforceStyleLock:=False
End If
End Sub

方式二：

Sub protWithoutMain()
'取消保护
If Not ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Unprotect (“123456789”)
End If
'选中整篇文章
Selection.WholeStory
'将整篇文章的例外项设置为每个人
Selection.Editors.Add wdEditorEveryone
'保护起来
ActiveDocument.Protect Password:=”123456″, NoReset:=True, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
'取消全选，将光标移至文章开头
Selection.HomeKey Unit:=wdStory
End Sub

总结：
方式一不能添加批注、不能添加/修改编号、可以删除页眉页脚
方式二可以添加批注、可以添加/修改编号、不可以删除页眉页脚
在可进行的操作方面还有其他一些细微差别，各有所长。