VBA visible property

[miek]

The worksheet "Blank time" visible property is set to xlsheetveryhidden.
The worksheet protection is password protected.
The workbook protection is password protected.

I have the following code:

lDate = Application.InputBox("Enter a date to begin with. Format: mm/dd/yy")
If LCase(lDate) = "false" Then Exit Sub
Worksheets("Blank time").Visible = True ' Runtime error 1004 when pw
protected
Worksheets("Blank time").Select

I get a run time error 1004 on the .visible line when the sheet/workbook is
pass protected. How can I get around this?
thanks

 

[chijanzen]

if worksheet protection password is 123
if workbook protection password is 123

try,

With Worksheets("Blank time").
.Parent.Unprotect Password:="123"
.Unprotect Password:="123"
.Visible = True
.Select
End With