Try the following
'Unprotect the file
If ActiveDocument.ProtectionType <> wdNoProtection Then
bProtected = True
ActiveDocument.Unprotect
End If
Put your code here
'Reprotect the document.
If bProtected = True Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True
End If

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> I'm creating a user form in Word that includes a table to be sorted
> afterthe user enters their info - specifically a sort on the "date"
[quoted text clipped - 9 lines]
>
> Any help with a solution is greatly appreciated. Thanks.
Keenly52 - 28 Mar 2005 17:23 GMT
Thank you very much - looks like it will do the trick. Cheers
> Try the following
>
[quoted text clipped - 25 lines]
> >
> > Any help with a solution is greatly appreciated. Thanks.
Keenly52 - 29 Mar 2005 06:59 GMT
Graham - I hate to impose but I ran into a couple of snags - btw it's Office
2003.
VB didn't recognize the variable bProtected (I never got past the 2nd line).
Only certain sections are protected
I need to password the protection and the code
Also, while I have you - is there any way a Macro can look at the value of a
Form field check box and then trigger certain actions depending on that
value? Or would I require a Control check box for that? If you had sample
code that would be awesome.
Many thanks again. Ken.
> Try the following
>
[quoted text clipped - 25 lines]
> >
> > Any help with a solution is greatly appreciated. Thanks.
Graham Mayor - 29 Mar 2005 08:38 GMT
The methodology is explained at
http://word.mvps.org/faqs/macrosvba/SpellcheckProtectDoc.htm. There is also
code on the MVPS web site which will help you fire an action based on the
result of a checkbox field.

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham - I hate to impose but I ran into a couple of snags - btw it's
> Office 2003.
[quoted text clipped - 48 lines]
>>>
>>> Any help with a solution is greatly appreciated. Thanks.
Graham - as I should have earlier, I have moved my enquiry over to the
programming discussion. Thanks again for your assistance. Cheers.