Validação de De login e usuário vba

[leegrj]

Boa noite amigos... Estou meio frustrado com um problema, depois de muito tentar, não consigo fazer com que o botão Entrar (valide o usurário) clicando nele ele nada faz.

consigo executar a primeira e a segunda parte do script com sucesso, mais a terceira parte nada acontece

segue o código*abaixo.*(Legenda : Form_Loguin*/ Text_Login e a Aba do Excel ficou com o nome de Login.)

agradeço a ajuda


Sub Entrar()

* * * * *Usuario = Form_Loguin.Text_Login
* * * * Senha = Form_Loguin.Text_Senha
* * * *
'primeira parte -verifica os capos vazios
* * * *
* * * * If Form_Loguin.Text_Login = "" Then
* * * * MsgBox "Entre com o Nome de Usuário", vbInformation, "USUÁRIO"
* * * *
* * *Exit Sub
* *
End If
* * * * If Form_Loguin.Text_Senha = "" Then
* * * * MsgBox "Entre Com a Senha do Usuário", vbInformation, "SENHA"
* *
* * Exit Sub
* *
End If

'Segunda parte - Verifica se é administador e se for entra

* * If Form_Loguin.Text_Login = "ADMIN" And Form_Loguin.Text_Senha = "ADMIN" Then
* * MsgBox "Bem vindo Administrador", vbOKOnly, "ACESSO LIBERADO"
* *
* * Sheets("Login").Select
* *
Exit Sub

End If
* *
'Terceira parte - Verifica se o usuário e senha estão no banco de dados (daqui em diante, nada acontece)

* * linha = 2
* *
* * Do Until Sheets("Login").Cells(linha, 1) = ""
* *
* * If Sheets("Login").Cells(linha, 1) = Form_Loguin.Text_Login And Sheets("Login").Cells(linha, 2) = Form_Loguin.Text_Senha Then
* *
* * MsgBox "Bem Vindo" & Usuario, vbOKOnly, "ACESSO LIBERADO"
* *
* * *Unload Form_Loguin
* * Sheets("Home").Select
* *
Exit Sub
*
End If
linha = linha + 1
Loop

End Sub

[alansidman]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)