none
Executar rotina de senha sem botão para entrar ?

    Question

  • Prezados,

    tenho um form, onde digito uma senha libero a tela a qual estou para edição.

    Como faço para quando eu digitar a senha (8 digitos), o furmulario desbloquear sozinho, sem ter um botão para executar a rotina de conferencia se a senha tá certa ou não.

    Ex. Cliquei em editar, será solicitado a senha, digitado a senha ( 8 digitos), estando a mesma correta, libera para edição, caso contrário, será exibido mensagem de senha incorreta.


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com

    Friday, March 08, 2013 7:53 PM

Answers

  • Private Sub UserForm_Initialize()
        'Desabilita um botão de comando:
        CommandButton1.Enabled = False
    End Sub
    
    Private Sub TextBox1_Change()
        If TextBox1 = "12345678" Then
            'A rotina aqui deverá liberar um formulário. Utilize, por exemplo:
           CommandButton1.Enabled = True
        End If
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    Tuesday, March 12, 2013 10:56 PM

All replies

  • Correto será o user terminar a digitação da password seguida de Enter.

    Usa o evento KeyDown da caixa de texto onde irá ser digitada a password e verifica se a tecla Enter foi carregada, usando a comparação KeyCode=VbKeyReturn para executar a validação da password.

    Saturday, March 09, 2013 12:23 PM
  • Não entendi, tem como dar um exemplo ?


    Att, Estanislau Frade msn: lauedele@hotmail.com email: estanislaufrade@yahoo.com.br estanislau.frade@vale.com

    Monday, March 11, 2013 6:51 PM
  • Private Sub UserForm_Initialize()
        'Desabilita um botão de comando:
        CommandButton1.Enabled = False
    End Sub
    
    Private Sub TextBox1_Change()
        If TextBox1 = "12345678" Then
            'A rotina aqui deverá liberar um formulário. Utilize, por exemplo:
           CommandButton1.Enabled = True
        End If
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    Tuesday, March 12, 2013 10:56 PM