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

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

Answer 2

尝试此操作以使您的文档为只读：

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

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

Answer 3

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

End Sub