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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/01/2013 2:48 pm