Hi,

I tried to use the existing post to create my own about password but unable to do so.

Currently I have a Sheets("Main") and a hidden Sheets("Database") with protected password.

What i wanted to create is a macro position in Sheets("Main") to unhide Sheets("Database") and by doing so it will prompt the user to enter the password in a Input box. How should i do it?

I have something like this

Sub GoToCustDB()

'
' GoToCustDB
'
    Sheets("Cust DB").Visible = True
    Sheets("Cust DB").Select
    With Sheets("Cust DB")
    Dim msg As String, strPassword As String
    msg = "Please enter your password"

    On Error GoTo End_it

    Sheets("Cust DB").Unprotect "Secret"
    End With


End_it:
    Sheet1.Protect "Secret"



End Sub
I think i screw it up.

Thank you

Regards