If ActiveDocument.ProtectionType = wpsNoProtection Then ActiveDocument.Protect Type:=wpsAllowOnlyCommentsEnd If