Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Ajuda - Formulário de Login

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
SoNiCCrAzY



Mensagens : 3
Data de inscrição : 25/01/2014

MensagemAssunto: Ajuda - Formulário de Login   Qua Jan 29, 2014 1:11 am

Boa tarde galera, preciso muito de uma ajuda.

Criei um formulário de login, que lê a Coluna(Login) e (Senha) de uma aba "Plan2"

O problema é,  se eu criar vários usuários, ele não funciona pois só está lendo a primeira linha das colunas...

Segue a linha de comando, do botão de "Logar"
Se vocês puderem me ajudar, onde eu tenho que acrescentar para que o comando leia a senha respectiva de cada usuário?

Citação :
Private Sub cmdEntrar_Click()
       
       If txtLogin = "" Then
           MsgBox "Digite o nome do usuário."
           Exit Sub
           txtLogin.SetFocus
       Else
         If txtSenha = "" Then
               MsgBox "Digite a senha do usuário."
               Exit Sub
               txtSenha.SetFocus
         End If
       End If
       
       col = 1
       Lin = 2
       While (Plan2.Cells(Lin, col) <> txtLogin)
           Lin = Lin + 1
           If Lin > 50 Then
               MsgBox "Usuário não cadastrado."
               Exit Sub
           End If
       Wend
       
       Dim senha As String
       Lin = 2
       col = 2
       senha = Plan2.Cells(Lin, col).Value
       
       If txtSenha <> senha Then
           MsgBox "A senha não confere."
           Exit Sub
       Else
           MsgBox "Seja bem vindo " & txtLogin
           Lin = 2
           col = 1
           While (Plan3.Cells(Lin, col) <> "")
               Lin = Lin + 1
           Wend
           Plan3.Cells(Lin, 1) = txtLogin.Value
           Plan3.Cells(Lin, 2) = txtSenha.Value
           Plan3.Cells(Lin, 3) = Now
           

           Plan1.Visible = xlSheetVisible
           Sheets("Plan1").Activate
           ActiveWindow.DisplayWorkbookTabs = True
           Hide
       End If
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda - Formulário de Login   Qua Jan 29, 2014 1:31 am

Boa noite!!

Veja se esse modelo te ajuda.
http://www.sendspace.com/file/i51q79

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SoNiCCrAzY



Mensagens : 3
Data de inscrição : 25/01/2014

MensagemAssunto: Re: Ajuda - Formulário de Login   Qua Jan 29, 2014 2:30 am

Não consigo abrir o arquivo, ta dando erro :s
to com office 2010
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda - Formulário de Login   Qua Jan 29, 2014 2:03 pm

Bom dia!!

Eu estou no trabalho e uso a versão 2010, eu não tenho problemas para abrir o arquivo.


Ayy
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Ajuda - Formulário de Login   Hoje à(s) 8:21 pm

Voltar ao Topo Ir em baixo
 
Ajuda - Formulário de Login
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ícone nos campos do formulário de login
» Formulário de pedidos gráficos editável
» Formulário de pedido ajuda?
» Formulário ao criar novo tópico - html
» AJUDA HOTSPOT- Configurado mas não aparece login/senha?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: