Na pesquisa do fórum vc vai encontrar vários modelos que vc pode adaptar. No youtube também existem os tutoriais passo-a-passo de como fazer.
Um começo, da forma mais simples seria como abaixo:
Private Sub Workbook_Open()
Application.Visible = False
Dim Login(1 To 4) As String
Dim Senha(1 To 4) As String
Dim Type_Login As String
Dim Type_Senha As String
Login(1) = "administrador"
Login(2) = "user1"
Login(3) = "user2"
Login(4) = "user3"
Senha(1) = 1234567
Senha(2) = 12345
Senha(3) = 12346
Senha(4) = 1234
Type_Login = InputBox("Digite o login:", "Login requerido")
Type_Senha = InputBox("Digite a senha:", "Senha requerida")
Select Case Type_Login
Case Is = Login(1)
If Senha(1) = Type_Senha Then Call Acesso_1
Case Is = Login(2)
If Senha(2) = Type_Senha Then Call Acesso_2
Case Is = Login(3)
If Senha(3) = Type_Senha Then Call Acesso_3
Case Is = Login(4)
If Senha(4) = Type_Senha Then Call Acesso_4
Case Else
MsgBox ("Você não tem permissão para acessar a planilha;")
ThisWorkbook.Close
End Select
Application.Visible = False
End Sub
Este código deve estar em Estapasta_de_Trabalho, e vc precisa criar as 4 macros Acesso1, Acesso2, Acesso3, Acesso4 com as definições do que cada um pode fazer.
Caso encontre dificuldades, poste a sua planilha (use um serviço externo, como o sendspace), e o pessoal te ajuda.
Abs
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 21/06/2014 8:05 am