Sub ToggleDocumentProtection() Dim doc As Document Set doc = ActiveDocument ' 检查文档是否受到保护 If doc.ProtectionType = wdNoProtection Then ' 如果文档未受保护,则加上只读保护 doc.Protect Type:=wdAllowOnlyReading, NoReset:=True, Password:="password" Else ' 如果文档已受保护,则解除保护 doc.Unprotect Password:="password" End If End Sub