Unhide a sheet with a password

Hi all
Can anyone help me out? I’m trying to get a macro vba code for unhiding a sheet with a password. For example I have three sheets in a workbook. Sheet1 & Sheet2 is available for the user but Sheet3 is hidden. (It was hidden by using the right click on tab options on sheet3 and clicking on hide). But to unhide sheet3 in the same way and see what is in it, the user has to enter the password “xxx”

I would appreciate your help.
Thank you

A little fine tuning may be needed here I will enter this code into worksheet activate event of sheet 3


Private Sub Worksheet_Activate()
Dim get_pass
If Worksheets("Sheet3").Visible = True Then
get_pass = InputBox("Enter Password")

If get_pass <> "xxx" Then
MsgBox "Incorrect Password"
Worksheets("Sheet3").Visible = False
End If
End If



End Sub

Hi...

I tried it.
I think this will be ok.
It's not what i was expecting but i can work around it.

Thank you...i appreciate it