Notifications
Clear all

Usuario no login direto para sua sheet. (VBA)

6 Posts
1 Usuários
0 Reactions
883 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde

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

 
Postado : 19/01/2013 2:48 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite.

Alguém poderia me fornecer uma luz.
Desde já agradeço.

 
Postado : 07/02/2013 5:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Acredito que o modelo anexo ajude :

É só fazer as adaptações :

Acesso a abas por Usuario e senha

[]s

 
Postado : 07/02/2013 6:47 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro Obrigado pela ajuda.

Mas estou com dúvida, esta planilha com o código postado server para login que abre antes da planilha do excel?

 
Postado : 08/02/2013 6:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Noite Mauro

Tentei fazer as adaptações mais não consegui.
Como poderia postar o arquivo, direto a vc para ajudar no macro, devido existir dados da empresa.

 
Postado : 08/02/2013 6:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro

Limpei bastante dados, inclusive financeiro.
Esta sendo enviada formato de rar.

Usuario: ADMIN
Senha: 314988

 
Postado : 08/02/2013 7:02 pm