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

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

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"miek" wrote:

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