vba - Word 2010宏设置保护只读不粘

Question

我有一个 Word (2010) 宏，可以将链接广告集保护设置为只读。

If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:="" End If

Selection.WholeStory
Selection.Fields.Unlink
Selection.StartOf


ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
    wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

该文档仅作为表单域打开并包含一些复选框。当我运行宏并保存对文档的更改时，它仅作为表单字段重新打开，即使保护状态在保存前检查时只读。

奇怪的是，当我将保护设置为手动只读并保存时，只读属性仍然存在。

关于为什么会发生这种情况的任何想法？

Answer 1

Sub Test2()
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Unprotect
End If

End Sub

Answer 2

试试这个让你的文档只读：

Private Sub CommandButton1_Click()
Dim sPassword As String
sPassword = "YourPasswordHere"
.Protect NoReset:=True, _
Password:=sPassword, _
Type:=wdAllowOnlyReading
End With
End Sub

然后，您可以使用您在代码中输入的密码通过开发人员选项卡取​​消对文档的保护。

Answer 3

该NoReset:=False选项意味着表单将仅打开表单字段... - 换句话说，它将删除表单中的任何内容。如果这不是您想要的，则需要设置NoReset:=True.