VBA-禁用限制Microsoft Word 2016中的样式更改

Question

我想禁用此限制样式更改受保护的Microsoft Word文档与VBA代码。

https://helpdeskgeek.com/office-tips/restrict-editing-on-word-documents/

此代码不适用于我：

Sub DisableCheckBox()
    ActiveDocument.Unprotect
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, noreset:=True, enforcestylelock:=False
End Sub

有什么想法吗？

非常感谢。

编辑：

好啊我试图解释我的问题。

我有很多文件。它们有文本和公式字段，可以用可变的短文本填充。文档被保护为只填充公式化字段，另外-这就是问题所在-存在激活“将格式设置限制为选择样式”

带公式字段的完整文本格式为Arial 10 pt。一些公式字段为Arial 12 pt。

当用户在保护文档中填充文本时，文本为Verdana 12 pt，因为这是默认样式。这就是我想取消激活选项“将格式化限制为可选择的样式”的原因

下一步，我尝试在新word文档中输入vba代码：

https://docs.microsoft.com/en-us/office/vba/api/word.document.protect

活动文档。Protect Type：=wdAllowOnlyFormFields， norest：=True，执行estylelock：=False结果："限制格式化到所选样式"未激活

然后我尝试另一个新文档：

活动文档。Protect Type：=wdAllowOnlyFormFields， norett：=True，强制执行：=True结果："将格式化限制为所选样式"激活

该代码适用于新文档（复选框“将格式化限制为选择样式”处于打开或关闭状态）。

现在，我使用激活选项“将格式限制为选定的样式”来尝试现有受保护文档的代码

ActiveDocument。解除保护

ActiveDocument。保护类型：=wdAllowOnlyFormFields，noreset:=True，enforcestylelock:=False

结果："将格式化限制为选择的样式"未被停用

我不知道为什么？

我只需要禁用复选框选项“限制格式化为选择的样式。”用VBA（你可以在图片中看到复选框）。

非常感谢。

在此处输入图像描述

Answer 1

删除样式限制似乎存在错误。你可以通过代码来解决这个问题，比如：

Sub DisableCheckBox()
Dim Stl As Style
With ActiveDocument
  On Error Resume Next
  .Unprotect
  On Error GoTo 0
  For Each Stl In .Styles
    Stl.Locked = False
  Next
  .Protect NoReset:=True, Type:=wdAllowOnlyFormFields
End With
End Sub

请注意，除非捕获并存储先前允许或不允许的样式的名称，否则以后无法在代码中撤消该过程。