nepsther

Boa tarde, estou tentando implementar esse código a seguir, funciona a parte de login, mas somente para o primeiro usuário, não consigo fazer para olhar os demais usuários. O que está de errado? login admin senha admin Sub validarUsuario(usuarioDigitado, senhaDigitada) fim = Worksheets("dados").Range("A1").End(xlDown).Row 'Validação de Usuario' For linha = 2 To fim If Worksheets("dados").Range("A" & linha) = usuarioDigitado Then If Worksheets("dados").Range("B" & linha) = senhaDigitada Then 'Senha OK If Worksheets("dados").Range("C" & linha) = "x" Then Call ativarModulo("Operadores") End If If Worksheets("dados").Range("D" & linha) = "x" Then Call ativarModulo("Processos") End If If Worksheets("dados").Range("E" & linha) = "x" Then Call ativarModulo("Clientes") End If If Worksheets("dados").Range("F" & linha) = "x" Then Call ativarModulo("Entradas") End If If Worksheets("dados").Range("G" & linha) = "x" Then Call ativarModulo("Saídas") End If If Worksheets("dados").Range("H" & linha) = "x" Then Call ativarModulo("Controle") End If If Worksheets("dados").Range("I" & linha) = "x" Then Call ativarModulo("Dashboard") End If If Worksheets("dados").Range("J" & linha) = "x" Then Call ativarModulo("dados") End If Else 'Senha NOK MsgBox "Senha Incorreta!" End If End If Next Unload Login End Sub controle.zip