Código VBA verificando usuários e senhas cadastrados

[Rodolfo Bargeri]

Boa tarde pessoal,

estou com um problema na macro que estou desenvolvendo, onde o código que será colado logo mais acha apenas o primeiro usuário cadastrado.

Ou seja, ele não está percorrendo todos os usuários.

Conseguem me ajudar por favor?

Obrigado!

 

Código:
 

  'Verificar usuário cadastrado'
    Linha = 2
    Do Until Sheets("Usuario").Cells(Linha, 1) = ""
        If Sheets("Usuario").Cells(Linha, 1) = Usuario _
        And Sheets("Usuario").Cells(Linha, 2) = Senha Then
            MsgBox "Bem vindo " & Usuario, vbOKOnly, "Acesso Permitido"
            Call Gravar_Relatorio
            Application.Visible = True
            Unload frmLogin
            
        Else
            MsgBox "Usuário ou senha inválidos", vbInformation, "Acesso Negado"
            frmLogin.txtUsuario = Empty
            frmLogin.txtSenha = Empty
            frmLogin.txtUsuario.SetFocus
        End If
        Exit Sub
    Linha = Linha + 1
    Loop

 

[Basole]

Veja se esta alteracao no codigo lhe atende: 

 

'Verificar usuário cadastrado'
    Dim bSnhInVal As Boolean

    Linha = 2
    Do Until Sheets("Usuario").Cells(Linha, 1) = ""
        If Sheets("Usuario").Cells(Linha, 1) = Usuario _
           And Sheets("Usuario").Cells(Linha, 2) = Senha Then
            MsgBox "Bem vindo " & Usuario, vbOKOnly, "Acesso Permitido"
            Call Gravar_Relatorio
            Application.Visible = True
            Unload frmLogin
            Exit Sub
        Else
            bSnhInVal = True
        End If
        Linha = Linha + 1
    Loop

    If bSnhInVal = True Then
        MsgBox "Usuário ou senha inválidos", vbInformation, "Acesso Negado"
        frmLogin.txtUsuario = Empty
        frmLogin.txtSenha = Empty
        frmLogin.txtUsuario.SetFocus
        bSnhInVal = False
    End If

 

[Rodolfo Bargeri]

11 horas atrás, Basole disse:

Veja se esta alteracao no codigo lhe atende: 

 

'Verificar usuário cadastrado'
    Dim bSnhInVal As Boolean

    Linha = 2
    Do Until Sheets("Usuario").Cells(Linha, 1) = ""
        If Sheets("Usuario").Cells(Linha, 1) = Usuario _
           And Sheets("Usuario").Cells(Linha, 2) = Senha Then
            MsgBox "Bem vindo " & Usuario, vbOKOnly, "Acesso Permitido"
            Call Gravar_Relatorio
            Application.Visible = True
            Unload frmLogin
            Exit Sub
        Else
            bSnhInVal = True
        End If
        Linha = Linha + 1
    Loop

    If bSnhInVal = True Then
        MsgBox "Usuário ou senha inválidos", vbInformation, "Acesso Negado"
        frmLogin.txtUsuario = Empty
        frmLogin.txtSenha = Empty
        frmLogin.txtUsuario.SetFocus
        bSnhInVal = False
    End If

Funcionou perfeitamente! 

Obrigado pela ajuda!