Notifications
Clear all

Senha para acesso

2 Posts
1 Usuários
0 Reactions
803 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos...
Bom dia

Surgiu uma dúvida....

Possuo uma planilha aonde utilizo senhas de acesso para a mesma.. de forma simples...

Clicando numa figura de cadeado fechado - Ele aciona a macro de proteger a planilha e bloquear
Clicando numa figura de cadeado aberto - Aciona a macro para desproteger a planilha mediante a senha.

porem... o que ocorre... Se eu utilizar a senha cadastrada "123" por exemplo para desbloquear a planilha...e clicar no cadeado fechado para bloquear .. somente a mesma senha desbloqueia...

O que eu precisaria seria uma senha "hierarquia" ... por exemplo...

A senha 123 - desbloqueia a planilha 1, 2, 3
A senha 246 - Desbloqueia qualquer planilha... e ate mesmo a que foi bloqueada com a senha 123.

Conseguiram entender? ...rsrsrs

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/07/2011 9:04 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Sugestão:

Ao clicar no cadeado, abrir UserForm com TextBox, no qual será digitada a senha.
Atribuir um * na Propriedade PasswordChar.

Utilizar um CommandButtn para analisar a senha digitada:

Dim senha As String

senha = TextBox1.Value

Select Case senha

Case "123"
ActiveWorkbook.Unprotect ("123")
Sheets("Plan1").Visible = True
.
.
.
Case "456"
ActiveWorkbook.Unprotect ("123")
Sheets("Plan4").Visible = True
.
.
.

End Select

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/07/2011 10:10 am