你在word文档里面插入以下宏:
Private Sub Document_Open()
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
如果要高级一点的方法,可以参考官网:
http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx
05-31