Using two passwords in a macro

[Ken White]

I installed a tremendously benificial macro that allows me to use SpellCheck
in locked forms. We have hundreds of these locked forms. and some of them
have different passwords to lock them. Is it possible to have the macro
recognize at least two passwords?

 

[Klaus Linke]

I installed a tremendously benificial macro that allows me
to use SpellCheck in locked forms. We have hundreds of
these locked forms. and some of them have different passwords
to lock them. Is it possible to have the macro recognize at least
two passwords?

Hi Ken,

Try them both?

' Ignore error if 1st password is wrong:
On Error Resume Next
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="Test1"
End If
' So you get an error message
' if the 2nd password still isn't the right one:
On Error GoTo 0
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="Test2"
End If

Regards,
Klaus