WordVba 切换保护状态

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