VBA-Macro-set password

Private Sub Worksheet_Activate()

If Application.InputBox("pls input password:") = 123 Then

Range("a1").Select
Sheets("secret").Cells.Font.ColorIndex = 56

Else
  MsgBox ("pasword  not correct, will eixt!")
 
  Sheets("normal").Select
 
End If

End Sub