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 | 
 

 LOgin e senha com abertura de aba especifica pelo usuasrio

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



Mensagens : 2
Data de inscrição : 22/01/2013

MensagemAssunto: LOgin e senha com abertura de aba especifica pelo usuasrio   Ter Jan 22, 2013 2:57 am

Boa Noite

Preciso de uma ajudinha, fiz uma tela de login antes de abrir o arquivo do excel.
Gostaria de saber, como poderia fazer que o usuario quando acessar pelo login, vá direto para o seu sheet de acesso.

f USUARIO.Text = Plan1.Range("b12") And SENHA.Text = Plan1.Range("c12")
Este range, é do admin, então quando eu coloco admin + senha = gostaria que fosse para aba do Admin.

Segue todos os usuários.

Private Sub ENTRAR_Click()
If USUARIO.Text = Plan1.Range("b12") And SENHA.Text = Plan1.Range("c12") Or USUARIO.Text = Plan1.Range("b13") And SENHA.Text = Plan1.Range("c13") Or USUARIO.Text = Plan1.Range("b14") And SENHA.Text = Plan1.Range("c14") Or USUARIO.Text = Plan1.Range("b15") And SENHA.Text = Plan1.Range("c15") Or USUARIO.Text = Plan1.Range("b16") And SENHA.Text = Plan1.Range("c16") Or USUARIO.Text = Plan1.Range("b17") And SENHA.Text = Plan1.Range("c17") Or USUARIO.Text = Plan1.Range("b18") And SENHA.Text = Plan1.Range("c18") Then
MsgBox "Bem vindo Hiperlink Via Sul"
Application.Visible = True
Unload HIPERLINK_VIA_SUL
Else
MsgBox "Senha incorreta entrar em contato com a Secretaria Técnica", vbCritical, "Alerta"
End If
End Sub

Agradeço desde já.

Thiago Ferreira
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: LOgin e senha com abertura de aba especifica pelo usuasrio   Dom Jan 27, 2013 1:59 am

Boa noite!!

tente
Código:
Private Sub ENTRAR_Click()
If USUARIO.Text = Plan1.Range("b12") And SENHA.Text = Plan1.Range("c12") Or USUARIO.Text = Plan1.Range("b13") And SENHA.Text = Plan1.Range("c13") Or USUARIO.Text = Plan1.Range("b14") And SENHA.Text = Plan1.Range("c14") Or USUARIO.Text = Plan1.Range("b15") And SENHA.Text = Plan1.Range("c15") Or USUARIO.Text = Plan1.Range("b16") And SENHA.Text = Plan1.Range("c16") Or USUARIO.Text = Plan1.Range("b17") And SENHA.Text = Plan1.Range("c17") Or USUARIO.Text = Plan1.Range("b18") And SENHA.Text = Plan1.Range("c18") Then
MsgBox "Bem vindo Hiperlink Via Sul"
Application.Visible = True
Unload HIPERLINK_VIA_SUL
Activate.Sheets ("Admin") '<-- linha acrescentada
Else
MsgBox "Senha incorreta entrar em contato com a Secretaria Técnica", vbCritical, "Alerta"
End If
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
FERREIRABFB



Mensagens : 2
Data de inscrição : 22/01/2013

MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   Dom Jan 27, 2013 1:28 pm

Bom dia amigo.

Infelizmente nao funcionou desta forma.
Deixa eu tentar explicar melhor.


Cada usuario teria que abrir a sua aba especifica.

Usuario adminsitrador, veja como eu coloquei abaixo.

If USUARIO.Text = Plan1.Range("b12") And SENHA.Text = Plan1.Range("c12" Activate.Sheets ("Administrador").

Desta amaneira não funcionou, e se eu colocar conforme a sua citação, todos irão abrir a aba administrador, que não poderia ser possivel.

Como poderia fazer que cada login acesse a sua aba, lembrando que o nome do usuario e a senha esta sendo conferido em uma aba chamada senha.

Thiago Ferreira
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: LOgin e senha com abertura de aba especifica pelo usuasrio   Sex Fev 22, 2013 2:27 am

Boa noite!!

Veja se tem como tirar proveito desse modelo
http://www.sendspace.com/file/13bkgu

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




MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   Hoje à(s) 4:44 pm

Voltar ao Topo Ir em baixo
 
LOgin e senha com abertura de aba especifica pelo usuasrio
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Login e senha na página inicial
» Login e senha html
» Personalizar o login e senha do fórum
» [TUTORIAL] Login e senha para ver página HTML
» Sobre o login e 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: