locked
login e senha

    Pergunta

  •  

    bom tarde galera

     

    Estou quase conseguindo tudo rs

     bom agora to pensando em um meio para faer um codigo que verfique em uma coluna o login do usuario e asenha em outra coluna, se os dois forem iguais na coluna e no digitado, ao cliclar em ok ele chama outra janela, se não aparecer mensagem de acordo com o que estiver errado se o usuario foi digitado errado ou nao exisitir, ou se asenha foi digitada errada ou não exisitri,

     

     

    estou usando VBA do excel so ele,

     

    mais pra frente vou migrar o programa pra acess no execel é so para eu pegar o jeito da coisa  =)

     

     

    mas me ajudem porfavor

     

    Obrigado,

    terça-feira, 6 de maio de 2008 20:47

Todas as Respostas

  • De que forma o usuário insere o login e senha? Por meio de TextBoxes?

    Nas colunas às quais vc se referiu à o nome e senha de apenas um usuário, ou uma lista que deve ser verificada?

    [ ]s

     

    quarta-feira, 7 de maio de 2008 14:12
  •  

    isso memso por textbox,

     

    sim seria uma lista de usuarios

    quarta-feira, 7 de maio de 2008 16:52
  • Boa tarde Italo

     

    Tem jeitos muito melhores de se fazer isso ms essa macro é para ser facil de entender:

     

    Obs.: Para dar certo a lista de usuário tem de estar na coluna A e a lista de senhas do lado do respectivo usuario, ou seja, na coluna B.

     

    Code Snippet

    Sub Login()
    Dim x As Integer
    x = 1
    While Sheet("Senhas").Cells(x, 1).Value <> "" 'Aqui "Senhas" é o nome da planilha onde estão as senhas
        'O loop while faz o programa verificar celula por celula até o final da lista
        If Cells(x, 1).Value = txtUsuario.Text Then 'txtUsuario é o nome da TextBox onde é digitado o nome do usuário
            If Cells(x, 2).Value = txtSenha.Text Then 'Verifica se a senha está correta
                'Intruções se a senha estiver certa
                Exit Sub 'Abandona a macro
            Else
                MsgBox "A senha está incorreta" 'Avisa que a senha está errada
                Exit Sub 'Abandona a macro
            End If
        End If
    x = x + 1
    Wend
    MsgBox "Usuário Inexistente"
    End Sub

     

     

    Existem outras maneiras de se fazer isso mas como disse essa macro é eficiente e facil de compreender.

    Se precisar de mais alguma coisa estou ai para ajudar

     

    Abraços

    quarta-feira, 7 de maio de 2008 20:24
  • Olá!

     

    Eu fiz um módulo parecido que funciona perfeitamente, porém, ele distingue maiúscula de minpuscula.

    Tentei usar o Ucase, mas, não adiantou.

    Poderia me ajudar?

     

    Obrigada.

    sexta-feira, 13 de junho de 2008 16:37
  • E se você usasse o PROPPER?

    sexta-feira, 13 de junho de 2008 18:15
  • Olá, Hideo!

     

    Infelizmente o Excel não reconhece este comando...teria outra sugestão?

     

    Obrigada.

     

     

    segunda-feira, 16 de junho de 2008 14:51
  • Oi Panddora..

    essa é uma função do Excel em inglês..

    PRI.MAIUSCULA

    segunda-feira, 16 de junho de 2008 14:58
  • Hideo,

     

    Tentei usar mas, não reconhece... tentei também fazer uma macro usando o =maiuscula(x) para ver como ficaria no VBA, mas nem assim ele reconhece.

    Será que a versão do meu Excel tem alguma influência sobre isso? Utilizo a versão 2002.

     

    segunda-feira, 16 de junho de 2008 18:03
  • De que forma você está colocando? application.worksheetfunction.... ... ....!???!?

    segunda-feira, 16 de junho de 2008 18:07
  • Oi, Hideo...

     

    Peço desculpas, acabei comendo bola, o UCASE funciona corretamente, o problema é que eu o estava colocando em lugar errado.

    If UCase(txt_Usuario.Text) = Worksheets("Login").Range("A1", "B100").Cells(cont, 1).Value Then...

     

    Obrigada pela ajuda!

     

     

    segunda-feira, 16 de junho de 2008 20:35