[RESOLVIDO] Senha Planilha

[CAMILOALVES]

Boa Tarde!
Na aba “Controle” existem 2 botões (“Invisível” e “Visível”) que funcionam assim: a clicar no botão “Invisível” as abas “Medição01” e “Medição02” tornam-se invisíveis e a clicar no botão “Visível”, as abas “Medição01” e “Medição02” tornam-se visíveis novamente.
O pedido de ajuda: Que no botão “Visível”, seja implementado um sistema de senha fixa, ou seja, ao clicar no botão “Visível”, será exigido digitação da seguinte senha: modular2017
Desde já agradeço

[LeandroSouza]

Olá, Boa tarde.

Caso queira a solução ideal, que a senha não apareça ao ser digitada, o correto seria criar um UserForm com as validações parecidas com a do código abaixo, junto com uma TextBox e nas propriedades da TextBox informar no Campo PasswordChar : *

No Evento de Clique do Botão o seguinte código pode ajudar, ele é uma resposta simples ao seu problema, porém será possível visualizar a senha ao digitar:

Repetir:
If InputBox("[Linha que antecede a caixa de texto]Digite a senha para prosseguir:", "[Título do Form]Área restrita") = "modular2017" Then

'Inserir código para exibir as planilhas

Else
'Se a senha não for a correta ou deixou em branco/apertou o botão cancelar do form informa o usuário e solicita se ele deseja repetir
If MsgBox("Senha incorreta. Deseja tentar novamente?", vbYesNo) = vbYes Then
'Se o usuário quiser repetir irá retornar para a Posição do código [ Repetir: ]
GoTo Repetir
Else
'Caso não queira repetir, irá sair do procedimento.
'Importante que esta ação seja no início do seu código, para que não ocorra de alguma ação aconteça
'antes desta vericação
Exit Sub

End If
End If

[CAMILOALVES]

Prezado LeandroSouza » Qua Jan 22, 2020 4:19 pm
Primeiramente Obrigado Por Dispor de seu Tempo Para Ajudar-me.
Como entendo muito pouco de VB, até tentei aplicar sua sugestão: "....No Evento de Clique do Botão o seguinte código pode ajudar.." , porem não obtive sucesso.
Se for possível, favor aplicar sua solução na planilha anexa e re-envia para testes.
Desde já agradeço.

[LeandroSouza]

Bom dia.

Camilo, veja se lhe atende. Verifique os códigos, pois foram alterados.

[CAMILOALVES]

Prezado LeandroSouza » Qui Jan 23, 2020 9:59 am
Primeiramente Obrigado Por Dispor de seu Tempo Para Ajudar-me.
Parabéns! A solução foi muito além da esperada.
Muito Obrigado
DEUS continue te iluminando.