Workbook Protection Password Prompt Macro

[banjoflanjo]

Hi,

I have a tab that I want to remain hidden to all who do not know the password.

I want the tab to become visible via clicking a button which runs the following code

Sheets("Project Deletion Form").Visible = True

However the workbook is password protected and I would like the user to be prompted for the password once they click the button before the sheet becomes visible.

Can anyone help me with this?

Regards

Banjoflanjo

 

[mikerickson]

If LCase(Application.InputBox("Enter Password", type:=2)) <> "password" Then Exit Sub

 

[banjoflanjo]

Hi Mike,

Thanks for your reply, my code now looks like this but doesnt work:

    If LCase(Application.InputBox("Enter Password", Type:=2)) <> "password" Then Exit Sub
    Sheets("Project Deletion Form").Visible = True

Any ideas?

Banjoflanjo

 

[banjoflanjo]

Forgot to mention that the password for the workbook is openup.

 

[mikerickson]

The .Visible property of a worksheet is not a Boolean value, but data type Long.

Sheets("Project Deletion Form").Visible = xlSheetVisible

Also, "openup" should be substituted for "password" in the code.

 

[banjoflanjo]

Excellent stuff. Thanks Mike!