Estou precisando de uma grande ajuda dos mestres em VBA é o seguinte estou usando uma tela adaptada por mim usando 3 requisitos para logar
1 nome
2 senha
3 ID
Minha dificuldade é a seguinte quero que a ID libere o acesso para uma determinada ABA (Plan1,Plan2 etc...)
Exemplo:
1 EDUARDO
2 TESTE
3 1515
Assim o EDUARDO terá acesso a plan1 e não deve modificar e nem visualizar as demais abas, preciso da ajuda de vocês porque são 34 usuarios e ao todo 34 abas e estou usando esse codigo para validar os acessos, alguma ajuda ?
Código: Selecionar todos
Do Until Sheets("Usuários").Cells(linha, 1) = ""
If Sheets("Usuários").Cells(linha, 1) = Usuario And Sheets("Usuários").Cells(linha, 2) = Senha And Sheets("Usuários").Cells(linha, 3) = ID Then
MsgBox "Bem Vindo " & Usuário, vbOKOnly, "ACESSO LIBERADO"
gravarRelatorio
LimparFormLogin
Unload FormLogin
Application.Visible = True
Sheets("USUARIO").Visible = xlSheetVeryHidden
Sheets("RELATORIO").Visible = xlSheetVeryHidden
Sheets("TRABALHO").Select
Exit Sub
End If
linha = linha + 1
Loop
MsgBox "Usuário ou Senha incorreto!", vbCritical, "ACESSO NEGADO"
LimparFormLogin
FormLogin.TextUsuario.SetFocus
Exit Sub
End Sub
Atensiosamente,
Wellison Silva
E-mail: wti.manutencao@gmail.com
Planejamento/Gestão