UserForm.

[Nigel Martin]

I am a total novice concerning UserForms. I have managed to design the form it has 1 TextBox and 2 buttons on it. I want users to input a password into the TextBox and then press 1 of the buttons marked "OK" to then opperate a macro or if they press the other button marked "Cancel" to make the UserForm disappear. Help !

[dantb]

Im Just learning myself, This came out of one of my lesson books, Hope it helps



Private Sub cmdValid_Click()
'This procedure checks the input password
Dim Response As Integer
If txtPassword.Text = txtPassword.Tag Then
'If correct, display message box
MsgBox "You've passed security!", vbOKOnly + vbExclamation, "Access Granted"
Else
'If incorrect, give option to try again
Response = MsgBox("Incorrect password", vbRetryCancel + vbCritical, "Access Denied")
If Response = vbRetry Then
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
Else
End
End If
End If
txtPassword.SetFocus
End Sub

[Mark O'Brien]

Double click on the "OK" button and this will throw up code that looks like this:

Private Sub CommandButton1_Click()



End Sub

Between these two lines put in the name of your macro. e.g. if I wanted to run a macro called "MyMacro" my code would look like this:

Private Sub CommandButton1_Click()

  MyMacro

End Sub

Go back to your userform view and double click on the "Cancel" button, put this code in:

Unload Me

HTH