unprotect more than one password in macro
 

I need to run apx 400 files thru a fix program which has already been
written by our tech. She's on vacation for a month.

The 400 files may or may not be password protected AND those that are
password protected may have one of 2 passwords. Searching here I
found the language to unprotect, I just don't know how to name the
condition of a password in order to use it in a macro.

My concept so far on how to solve this problem is to use an if then
command as follows

if "password"="pwd#1" then
ActiveSheet.unprotect "pwd#1"
else if "password" = "pwd#2: then
ActiveSheet.unprotect "pwd#2"
end if

To recap, I need to know what vba language is used to denote "password"
in the above module.

Thanks, in advance,
Morticcia



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

unprotect more than one password in macro
 

You can't do a check like if Password = "such and such"

You would have to furnish the password as an argument and trap the error.

Sub Unprotect()
On Error Resume Next
ActiveSheet.Unprotect Password:="ABC"
If Err.Number < 0 Then
ActiveSheet.Unprotect Password:="ABCD"
End If
Err.Clear
On Error GoTo 0
End Sub

--
Regards,
Tom Ogilvy

"Morticcia" wrote in message
...
I need to run apx 400 files thru a fix program which has already been
written by our tech. She's on vacation for a month.

The 400 files may or may not be password protected AND those that are
password protected may have one of 2 passwords. Searching here I
found the language to unprotect, I just don't know how to name the
condition of a password in order to use it in a macro.

My concept so far on how to solve this problem is to use an if then
command as follows

if "password"="pwd#1" then
ActiveSheet.unprotect "pwd#1"
else if "password" = "pwd#2: then
ActiveSheet.unprotect "pwd#2"
end if

To recap, I need to know what vba language is used to denote "password"
in the above module.

Thanks, in advance,
Morticcia



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/