Spell Check Locked and Protected Word 2003 Forms 1

[BlueHorizon]

Hi all,

I used the following macro in Word 2000 to unlock (the little lock on the Forms toolbar), then unprotect (using a password), then spell check a word document with form fields, then relock (the little lock on the Forms toolbar).

What it doesn't do is re-protect using the original password. How can I make that happen?



Sub FormsSpellCheck()

' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="password"
End If

' Set the language for the document.
Selection.WholeStory
Selection.LanguageID = wdEnglishUS
Selection.NoProofing = False

' Perform Spelling/Grammar check.
If Options.CheckGrammarWithSpelling = True Then
ActiveDocument.CheckGrammar
Else
ActiveDocument.CheckSpelling
End If

' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
End If

End Sub



Any help is gratefully accepted!! Thanks in advance,
Kathy


Best,
Blue Horizon

http://www.bluehorizontraining.com

 

[fumei]

use the same password. Word unlocks with the password. It does not store it unless it IS protected. So if you want the same password, give it that password.

  If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
         NoReset:=True, Password:="password"
   End If

Gerry

 

[BlueHorizon]

Gerry,
Have I told you lately that I love you??? Thank you so much - worked like a charm!!

Star for you!!
Kathy



Best,
Blue Horizon

http://www.bluehorizontraining.com

 

[fumei]

Well gosh, I am just covered in blushes.

Gerry