Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim LR As Integer
Dim ID As Variant

    LR = Sheets("ID").Range("A" & Rows.Count).End(xlUp).Row
    
    For Each ID In Sheets("ID").Range("A1" & ":A" & LR)
        If TextBox1.Text = ID Then
            If TextBox1.Text = ID And UCase(TextBox2.Text) = ID.Offset(0, 1) Then
                Unload Me
                UserForm1.Show
                Exit Sub
            Else
                MsgBox "Password not matt"
                Unload Me
                ThisWorkbook.Close False
            End If
        ElseIf ID.Row = LR Then
            MsgBox "User ID or Password not matt"
            Unload Me
            ThisWorkbook.Close False
        End If
    Next
End Sub

Code: Select all

Private Sub TextBox2_AfterUpdate()
    Call CommandButton1_Click
End Sub

Code: Select all

Private Sub TextBox2_AfterUpdate()
    Call CommandButton1_Click
End Sub