Expert: Stuart Resnick - 7/2/2009

Question
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

---------- FOLLOW-UP ----------

QUESTION: That's tremendous, but where do I enter it, on the view code bit on the tab..??

Answer
Open the Visual Basic Editor (Tools, Macro, Visual Basic Editor). Then enter the code on the worksheet object where the command button resides. The Command Button should be placed on the worksheet using View, Toolbars, Control Toolbox.

You shouldn't attempt any of this until you get a better basic understanding of Visual Basic for Applications (vba) coding.