hmmm....
Private Sub Worksheet_Activate()
Dim MYpassword As String
Sheets("Sheet1").Select 'here We Move to Sheet1 (Or whatever sheet you want, just change the name)
MYpassword = InputBox("EnterPassword")
If MYpassword = "123" Then
Sheets("Sheet2").Select 'Put the name...