Expert: Stuart Resnick - 7/1/2009

Question
Hi Stuart,

I am using the following basic code to use a password in a UserForm, in my complete vba incompetance I don't understand how to make this useable. I need this to pop up when a sheet is opened (via macro in a button), then once verified it goes to the sheet requried or if failed, go back to a different sheet...

Private Sub CommandButton1_Click()

   If TextBox1.Text <> "userform" Then
       MsgBox "Password is Incorrect. Please reenter."
       TextBox1.Text = ""
       TextBox1.SetFocus
   Else
       MsgBox "Welcome!"
       Unload Me
   End If

End Sub

I hope you can help

Jason

Answer
The following code will take user to Sheet2 if the password "userform" is entered. Otherwise, it takes user to Sheet3.

Private Sub CommandButton1_Click()
   Dim pw
   pw = InputBox("Enter password")
   If pw = "userform" Then
       MsgBox "correct"
       ThisWorkbook.Sheets("Sheet2").Select
   Else
       MsgBox "wrong"
       ThisWorkbook.Sheets("Sheet3").Select
   End If
End Sub