Usuário com melhor resposta
acesso a planilhas por meio de senha

Pergunta
-
Olá pessoal preciso de uma ajuda Urgente de vcs.
gostaria de uma macro ou cod. vba da seguinte forma:
Exemplo: Em plan1 vai acessar o Pedro com a sua senha
Em Plan2 vai acessar a Maria
e assim por diante
Eu fiz um Menu principal e ocultei todas as planilhas e neste menu existem botoes com hiperlinks que direcionam qdo a pessoa responsavel pela planilha clicar só que eu gostaria que se caso outra pessoa clica-se ser ser a sua pasta ele não tem permissão para fazer nada só se ele tiver a senha. Por favor amigos me deem uma força aí.
Abrigado!
Respostas
-
Você deve colocar em um módulo ou em eventos: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/
Felipe Costa Gualberto - http://www.ambienteoffice.com.br- Marcado como Resposta Libeck quarta-feira, 1 de junho de 2011 00:36
Todas as Respostas
-
Olá,
Neste caso você poderia criar um tratamento de senha para cada botão, ou seja, para planilha de Maria uma verificação de senha, para Pedro outra, etc.
No caso abaixo, criei um exemplo para a planilha de Maria, veja se entende:
Sub maria()
' Declaração de variáveis
Dim senhamaria, entrada As String
senhamaria = "123"
entrada = InputBox("Digite sua senha:", "Senha Maria")
' Verifica se a senha de Maria é correta
' Se a senha é diferente/incorreta
If entrada <> senhamaria Then
MsgBox "Senha inválida", vbInformation
Exit Sub
' Caso contrário
' Torna a planilha de Maria visivel e a seleciona
Else
Sheets("Maria").Visible = True
Sheets("Maria").Select
End If
End Sub
' A senha pode ser alterada a seu critério e o código pode ser utilizado para o Pedro também, alterando o código de acordo com a necessidade. Lembrando que as planilhas estarão ocultas e só estarão visíveis após a execução do código e inclusão de senha.
Seria bom que bloqueasse o acesso ao seu código para que nenhum usuário mais esperto tenha acesso as senhas, outro detalhe é ocultar as guias no excel para que não possam reexibir as planilhas ocultas manualmente.
Você pode usar o código abaixo no evento Open do WorkBook.
Application.ActiveWindow.DisplayWorkbookTabs = False
Bruno de Sousa Rocha - MyVBAFórum: http://vbaexcel.foruns.com.pt/ -
-
Você deve colocar em um módulo ou em eventos: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/
Felipe Costa Gualberto - http://www.ambienteoffice.com.br- Marcado como Resposta Libeck quarta-feira, 1 de junho de 2011 00:36