Fico grato pela ajuda de vocês. Segue o código para analise;
Código: Selecionar todos
Private Sub Command_Ok_Click()
Dim Linha As Variant
On Error GoTo NaoEncontrado
Linha = Sheets("Login").Range("A:A").Find(Me.Text_Usuario).Row
If Me.Text_Senha = Sheets("Login").Cells(Linha, 2) Then
Unload Me
FormMenu.Show
End If
If Me.Text_Senha = Sheets("Login").Cells(Linha, 3) Then
Unload Me
FormMenu.Show
FormMenu.CommandPlan1.Enabled = False
FormDados.CommandAtualizar = False
Else
MsgBox "A senha não confere"
Me.Text_Senha = ""
Me.Text_Senha.SetFocus
End If
Exit Sub
NaoEncontrado:
MsgBox "Usuário não cadastrado."
Me.Text_Usuario = ""
End Sub