Snasui Excel Forum

Code: Select all

Dim tTextbox As String
Sub Button1_Click()
    UserForm1.Show
    If tTextbox <> "1234" Then Exit Sub
    MsgBox "Congratulation!!!"
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    tTextbox = UserForm1.TextBox1.Text
    Unload UserForm1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
    End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Private Sub TextBox1_Change()
    tTextbox = UserForm1.TextBox1.Text
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
    End If
End Sub