unhide sheet from dropdown list with password

[Firasath]

Hi,

I would like to develop a code where I can have a dropdown list of sheet names which I want to unhide with a password. I have tried a lot but got no success. \

Suppose, I have a multiple sheets by names, "A", "B", "C", up to "F". When I select one or multiple sheet names from dropdown box, it should prompt for password to unhide sheet. Please suggest the best way to do so.

Regards.

 

[Firasath]

I have tried below code in the same sheet where dropdown box is there, but nothing is happening. Not getting any error even.

Private Sub Worksheet_Change(ByVal Target As String)
Dim Target As String, msg As Variant

Set Target = Sheets("Sheet1").Range("A1")
Set Target = Target

If Target.Visible = False Then
msg = Application.InputBox("Password", "Password", "", Type:=2)
If response = "pgdb" Then
Target.Visible = True
Target.Select
Else
Target.Visible = False
End If

End Sub

 

[mumps]

Do all sheets have the same password? What is the name of the sheet that has the drop down list? I assume that this sheet will always be visible. Is this correct?