Notifications
Clear all

Variavel Senha

5 Posts
2 Usuários
0 Reactions
956 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Como posso criar uma Variável senha para não ficar digitando várias vezes ?

OBS: Está tudo num único Módulo !

Obrigado !

Dim Senha As String
Public Sub Passaword()

Senha = "123"

End Sub
Sub Desprotege()
    'Passaword
    ActiveSheet.Unprotect Password:=Senha

End Sub
Sub Protege()
    'Passaword
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, Password:=Senha

End Sub
 
Postado : 10/06/2018 11:41 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

vonzuben,

Boa tarde!

Não entendi a sua pergunta...

Da forma que você fez já está correto. A senha 123 só é digitada na rotina Public Sub Passaword(). Depois disso você pode usar o contyeúdo da variável senha em qualquer outra rotina desse mesmo módulo. Assim, não entendi sua pergunta. A que você se refere? Esta se referindo ao fato de ter que escrever a palavra "Senha" em todas as rotinas em que ela for preciso? É isso? Se for isso, não tem jeito.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 10/06/2018 12:24 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Fiz aqui e na planilha Jan não estou consigo digitar na Data , Nome

O código acima desativado funciona, mas colocar a variavel Senha aparece mensagem de bloqueado

 
Postado : 10/06/2018 1:28 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Se eu entendi corretamente, você está tentando digitar algo na aba Jan para que ela dispare os comandos que estão no evento WorkSheet_Change. Acontece que isso nunca vai acontecer pois ela está protegida. Como você quer digitar alguma coisa numa planilha que está protegida?

Desse modo, precisa desproteger assim que o arquivo é aberto e no final, depois de editar o que quer dentro da aba, o próprio código chama a rotina que faz a proteção novamente.

Veja se é assim.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 10/06/2018 1:45 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Desprotegi tudo, fiz de novo e funcionou !

 
Postado : 10/06/2018 9:00 pm