If ActiveDocument.ProtectionType = wpsNoProtection Then ActiveDocument.Protect _ Type:=wpsAllowOnlyFormFields, NoReset:=TrueEnd If