ProtectionType Property Example

If the active document isn't already protected, this example protects the document for comments.

If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect Type:=wdAllowOnlyComments
End If

This example unprotects the active document if it's protected.

Set Doc = ActiveDocument
If Doc.ProtectionType <> wdNoProtection Then Doc.Unprotect