Notifications
Clear all

Permissões diferentes

5 Posts
2 Usuários
0 Reactions
806 Visualizações
(@vilchez)
Posts: 0
New Member
Topic starter
 

Boa Tarde,

necessitava criar uma macro que me permitisse dar acesso a 4 usuários, mas sempre que acedessem com o seu usuário/passe, tinham permissões diferentes

Do género:

Administrador: Acesso total a todas as folhas
User 1 : Registo de apenas algumas colunas da tabela Y na Folha de Tubos
User 2 : Registo de apenas algumas colunas da tabela M na Folha de Bobines
User 3 : Apenas Leitura.

alguem sabe como o fazer?

Desde já, grato por vossa atenção :)

 
Postado : 20/06/2014 1:10 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Só com essa informação, fica um pouco demorada a ajuda.

Vc sabe algo de VBA e quer um código que possa adaptar, ou vc não sabe nada e quer uma indicação de como pode fazer?

 
Postado : 20/06/2014 3:57 pm
(@vilchez)
Posts: 0
New Member
Topic starter
 

Meus conhecimentos ainda são muito poucos em VBA.

Perfeito era se te podesse enviar o ficheiro e me ajudasses a adaptar um login para esses 4 usuarios com permissões diferentes :) Mas o ficheiro esta um pouco pesado (2MB) e não me deixa partilhar :( (esta com algumas macros, interligações ao sistema AS400).

Consegues me dar uma explicação de como o fazer?

Sim, ou não, agradeço de igual ;)

 
Postado : 21/06/2014 5:08 am
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 21/06/2014 8:05 am
(@vilchez)
Posts: 0
New Member
Topic starter
 

:s sou muito muito básico em conhecimentos VBA. :s e não sei como fazer os acessos. :(

Envio-te abaixo o link. Podes me ajudar?

O que prentendia era que:

1ª User Podesse trabalhar sem restrições.
2ª User Podesse trabalhar apenas nas colunas que coloquei a verde na folha "Tubos", e todas as restantes planilhas só poderia visualizar sem poder editar
3ª User Podesse editar apenas as colunas que coloque a verde na folha "Bobines" e todas as restantes planilhas só poderia visualizar sem poder editar
4 User Podesse apenas podesse consultar, sem poder editar nada.

PS: O acesso as macros esta bloqueado, para aceder é "POLIPROPIGAL7"

Link: https://www.sendspace.com/file/ev9veh

Desde já um Obrigadão!!!

 
Postado : 21/06/2014 10:17 am