Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificação de Valo...
 
Notifications
Clear all

Verificação de Valores

 
2024 - VBA & Macros
Post Recente por Alvaro 9 anos atrás
3 Posts
2 Usuários
0 Reactions
980 Visualizações
RSS
 Alvaro
(@alvaro)
Posts: 0
New Member
Topic starter
 

Pessoal boa noite.
Estou com a seguinte duvida.

Eu tenho uma planilha com 5 colunas, como abaixo:
Coluna B: Nome do Usuário
Coluna C: Senha
Coluna D: Check de Senha
Coluna E: Ativo ou Inativo

O que eu queria:
Eu tenho um form de login (com textbox para nome de usuario e textbox para senha)
O que eu queria é o seguinte:

A pessoa digita o nome de usuario e senha.
Ao clicar no botao LOGIN, a macro percorre o banco de dados de usuarios cadastrados e verificar se o nome de usuario e senha estao cadastrados e corretos.
Porem eu queria que ao clicar no botao de login, a macro alem de verificar o nome de usuario e senha (que estao nas colunas B e C) ela verificaria na coluna E se o usuario esta ativo ou inativo.
Caso:
Usuario Ok
Senha Ok
E na coluna E estiver "ATIVO"
Apareça a msgbox("Bem vindo")

Caso :
Usuario Ok
Senha Ok
E na coluna E estiver "INATIVO"
Apareça a msgbox("Usuario Desativado")

Muito obrigado

Gerenciamento Financeiro.xlsm
 
Postado : 19/02/2016 9:42 pm
 messiasmbm
(@messiasmbm)
Posts: 0
New Member
 

cole isto no botão:

Private Sub Cmd_Login_Click()

Dim Maximo
Maximo = Plan14.Cells(Rows.Count, 2).End(xlUp).Row

         If Text_User = "" Then
            MsgBox "Digite o nome do usuário !", vbOKOnly + 64
            Exit Sub
            Text_User.SetFocus
        Else
          If Text_Senha = "" Then
                MsgBox "Digite a senha do usuário !", vbOKOnly + 64
                Exit Sub
                Text_Senha.SetFocus
          End If
        End If

        col = 2
        lin = 2
        While (Plan14.Cells(lin, col) <> Text_User)
            lin = lin + 1
            If lin > Maximo Then
                MsgBox "Usuário não esta cadastrado.", vbCritical
                Text_User = ""
                Text_User.SetFocus
                Exit Sub
            End If
        Wend

        Dim senha As String
        col = 3
        senha = Plan14.Cells(lin, col).Value

        If Text_Senha <> senha Then
            MsgBox "A senha não confere.", vbCritical
                Text_Senha = ""
                Text_Senha.SetFocus
            Exit Sub
        'Else
            'MsgBox "Seja Bem Vindo: " & Text_User, vbOKOnly + 64
            'lin = 2
            'col = 2
            'While (Plan14.Cells(lin, col) <> "")
                'lin = lin + 1
            'Wend
            'Sheets("Capa").Activate
            'ActiveWindow.DisplayWorkbookTabs = True
            'Hide
        End If
        
        
        Dim Status As String
        
         col = 5
        Status = Plan14.Cells(lin, col).Value

        If Status <> "Ativado" Then
            MsgBox "Usuario Desativado.", vbCritical
                Text_User = ""
                Text_Senha = ""
                'Text_Senha.SetFocus
            Exit Sub
        Else
            MsgBox "Seja Bem Vindo: " & Text_User, vbOKOnly + 64
            'lin = 2
            'col = 2
            'While (Plan14.Cells(lin, col) <> "")
                'lin = lin + 1
            'Wend
            Sheets("Capa").Activate
            ActiveWindow.DisplayWorkbookTabs = True
            Hide
        End If
        
        
End Sub
 
Postado : 20/02/2016 10:47 am
 Alvaro
(@alvaro)
Posts: 0
New Member
Topic starter
 

Muito Obrigado, Messias.
PERFEITO!!

 
Postado : 20/02/2016 4:40 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico