Question

保护指定文档，防止更改。如果一篇文档处于保护状态，则用户只能进行有限修改，如添加批注、进行修订，或者完成一个窗体。

注意 如果在使用本方法之前文档已经加以保护，则会导致出错。

expression.Protect(Type,NoReset,Password)

expression 必需。该表达式返回“应用于”列表中的一个对象。

Type 必需，特定文档的保护类型。WdProtectionType。

WdProtectionType 可以是下列 WdProtectionType 常量之一：

wdAllowOnlyComments

wdAllowOnlyFormFields

wdAllowOnlyRevisions

wdNoProtection

NoReset Variant 类型，可选。如果本参数为 False，则将窗体域重新设置为默认值。如果本参数为 True，而指定文档又是处于保护状态，则保留窗体域原来的值。如果 Type 不是 wdAllowOnlyFormFields，则忽略 NoReset 参数。

Password Variant 类型，可选。特定的文档要求密码来“解除保护”。

示例

本示例保护活动文档的窗体，不重新设置窗体域中的内容。

If ActiveDocument.ProtectionType = wdNoProtection Then
 ActiveDocument.Protect _
 Type:=wdAllowOnlyFormFields, NoReset:=True
End If

本示例保护 Monthly Report.doc，以至只能向该文档添加备注。“free”是解除文档保护所用的口令。

Set myDoc = Documents("Monthly Report.doc")
myDoc.Protect Type:=wdAllowOnlyComments, Password:="free"