Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Caixa de Login VBAExcel (RESOLVIDO)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
LucianoBorges
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sáb Jun 18, 2011 8:30 pm

Caixa de Login VBAExcel (RESOLVIDO)

Mensagem por LucianoBorges »

Olá amigos do forum gostaria de saber se alguém pode me ajudar com mais essa. O meu form login está funcionando perfeitamente, porém gostaria que ele deixa-se alguns commands enable= false dependendo do acesso, coloquei usuário na coluna A e senhas nas colunas B e C o que eu gostária é que ao ler a senha da coluna B todos os comandos liberados, ao ler a senha da coluna C command 1 e 2 enable = false. O código abaixo quase faz isso, pórem ele passa pela coluna B sem le-la e só encherga a Coluna C.

Fico grato pela ajuda de vocês. Segue o código para analise;

Código: Selecionar todos

Private Sub Command_Ok_Click()
            Dim Linha As Variant
            On Error GoTo NaoEncontrado
            Linha = Sheets("Login").Range("A:A").Find(Me.Text_Usuario).Row
            
            If Me.Text_Senha = Sheets("Login").Cells(Linha, 2) Then
              Unload Me
              FormMenu.Show         
              
              End If
                      
             If Me.Text_Senha = Sheets("Login").Cells(Linha, 3) Then
              Unload Me
              FormMenu.Show
              FormMenu.CommandPlan1.Enabled = False
              FormDados.CommandAtualizar = False           
              
              Else
            
               MsgBox "A senha não confere"
               Me.Text_Senha = ""
               Me.Text_Senha.SetFocus
               
            End If
            Exit Sub
               
NaoEncontrado:
            MsgBox "Usuário não cadastrado."
            Me.Text_Usuario = ""
           
End Sub
Editado pela última vez por LucianoBorges em Seg Jul 18, 2011 7:47 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Caixa de Login VBAExcel

Mensagem por Mauro Coutinho »

Vej se é isto,só não entendi a parte que chama dois Forms (FormMenu e FormDados), mas faça os testes e qualquer coisa retorne :

Código: Selecionar todos

Private Sub CommandButton1_Click()

        Dim Linha As Variant
        Dim Senha As Integer
        On Error GoTo NaoEncontrado
        
        Linha = Sheets("Login").Range("A:A").Find(Me.Text_Usuario).Row
        Senha = Me.Text_Senha
            
            If Senha = Sheets("Login").Cells(Linha, 2) Then
                Unload Me
                FormMenu.Show
                Exit Sub
            End If
             
            If Senha = Sheets("Login").Cells(Linha, 3) Then
            Unload Me
                FormMenu.CommandButton1.Enabled = False
                FormMenu.CommandButton2.Enabled = False
                FormMenu.Show
            Else
           
               MsgBox "A senha não confere"
               Me.Text_Senha = ""
               Me.Text_Senha.SetFocus
               
            End If
            Exit Sub
               
NaoEncontrado:
            MsgBox "Usuário não cadastrado."
            Me.Text_Usuario = ""
            Me.Text_Senha = ""
            Me.Text_Usuario.SetFocus
End Sub
[]s


LucianoBorges
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sáb Jun 18, 2011 8:30 pm

Re: Caixa de Login VBAExcel

Mensagem por LucianoBorges »

Obrigado Mario, perfeito isso mesmo me confundi com os dois forms mas tudo bem.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder