Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 LOgin e senha com abertura de aba especifica pelo usuasrio

Ir para baixo 
2 participantes
AutorMensagem
FERREIRABFB




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

LOgin e senha com abertura de aba especifica pelo usuasrio Empty
MensagemAssunto: LOgin e senha com abertura de aba especifica pelo usuasrio   LOgin e senha com abertura de aba especifica pelo usuasrio EmptyTer 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

LOgin e senha com abertura de aba especifica pelo usuasrio Empty
MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   LOgin e senha com abertura de aba especifica pelo usuasrio EmptyDom 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
Ir para o topo Ir para baixo
FERREIRABFB




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

LOgin e senha com abertura de aba especifica pelo usuasrio Empty
MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   LOgin e senha com abertura de aba especifica pelo usuasrio EmptyDom 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

LOgin e senha com abertura de aba especifica pelo usuasrio Empty
MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   LOgin e senha com abertura de aba especifica pelo usuasrio EmptySex Fev 22, 2013 2:27 am

Boa noite!!

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

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





LOgin e senha com abertura de aba especifica pelo usuasrio Empty
MensagemAssunto: Re: LOgin e senha com abertura de aba especifica pelo usuasrio   LOgin e senha com abertura de aba especifica pelo usuasrio Empty

Ir para o topo Ir para baixo
 
LOgin e senha com abertura de aba especifica pelo usuasrio
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Login e senha ao abrir a planilha
» inserir login e senha - aplicação externa
» Mascara para excel
» Abertura de arquivo
» VBA para aceder a site com login

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: