I habe the following code that is called in the workbook open event. I can
run this in Excel 2000 without any problems but when I try to run it at work
with Excel 2002 I get an error saying the password is not correct. Debug
takes me the first line of the code below. I tried changing to "taylor" but
that didn't help. Any help on where I am going wrong would be greatly
appreciated.

If I set the password without quotes, you can't go to tools-protection and
type in the password to unprotect even if you know what it is. I assume this
is because the password is set as a variable. Do I have this wrong? Is this
where my trouble stems from?

Private Sub ProtectAll()
Sheet1.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet2.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet3.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet4.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet5.Protect Contents:=True, password:=taylor, userinterfaceonly:=True

With Sheet2.Range("b2,c24,c46,c68,c90,c112,c134")
.NumberFormat = "m/d/yy"
End With

With Sheet3.Range("c2,c24,c46,c68,c90")
.NumberFormat = "m/d/yy"
End With

End Sub

xl2002 got more stringent.

You have to match the existing password exactly when you protect the worksheet.
I'm guessing that if you manually change the password of each sheet to taylor
(and change the code to "taylor"), it'll work ok.


Christy wrote:

I habe the following code that is called in the workbook open event. I can
run this in Excel 2000 without any problems but when I try to run it at work
with Excel 2002 I get an error saying the password is not correct. Debug
takes me the first line of the code below. I tried changing to "taylor" but
that didn't help. Any help on where I am going wrong would be greatly
appreciated.

If I set the password without quotes, you can't go to tools-protection and
type in the password to unprotect even if you know what it is. I assume this
is because the password is set as a variable. Do I have this wrong? Is this
where my trouble stems from?

Private Sub ProtectAll()
Sheet1.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet2.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet3.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet4.Protect Contents:=True, password:=taylor, userinterfaceonly:=True
Sheet5.Protect Contents:=True, password:=taylor, userinterfaceonly:=True

With Sheet2.Range("b2,c24,c46,c68,c90,c112,c134")
.NumberFormat = "m/d/yy"
End With

With Sheet3.Range("c2,c24,c46,c68,c90")
.NumberFormat = "m/d/yy"
End With

End Sub

--

Dave Peterson