Sub Prot(strPW As String)   'A basic Word macro coded by Greg Maxey   ActiveDocument.Protect wdAllowOnlyFormFields, True, strPW End Sub Sub UnProt(strPW As String)   'A basic Word macro coded by Greg Maxey   If ActiveDocument.ProtectionType <> wdNoProtection Then     ActiveDocument.Unprotect strPW   End If End Sub

Where did you put them?  Put them in your userform module with the command button code.