Macro proteger varias planilhas com senha

[cadeca]

Boa tarde, amigos.

Gostaria imenso de ajuda para resolver um problema. Meu conhecimento de macros ainda é bastante limitado.

Possuo alguns arquivos Excel, cada um deles com diversas planilhas (cerca de 50). Todas elas têm dados e formulas a serem protegidas. Como tais documentos têm informações alimentados por outras pessoas, mantenho-as protegidas, desprotegendo sempre que dados ou formulas necessitem alteração. Pronto:

1. Necessito de uma macro que proteja e desproteja todas a planilhas de um arquivo, com um único comando.

2. Essa proteção/desproteção deve ser com senha.

3. Essa senha deverá ser digitada a partir de certa célula, em uma das planilhas.

Tenho dúvidas se tal macro pode ser alojada em uma planilha do próprio arquivo (que seria o ideal).

Conto com o conhecimento de vocês para me ajudar a resolver esse probleminha.

Agradecimentos antecipados.

[Patropi]

Boa noite cadeca

Eu não tenho muito conhecimento em Macros mas conheço um código VBA que colocado junto com a Macro ele desprotege a planilha, roda a macro e depois volta a proteger a planilha.

Seria o caso de alguém adaptá-lo para ser executado através de um botão e que solicitasse uma senha de confirmação.

Fica apenas como sugestão, vamos ver se algum fera em macro agora resolve te ajudar.

Abraços

[cadeca]

Já resolvemos o problema. Muito obrigado assim mesmo.,

Até a próxima.

Abraço.

[Carlos7x]

Cadeca,

você pode prestar um grande favor à galera interessada

em soluções das questões postadas nesse forum.

Você poderia nos mostrar a macro que resolveu o seu

problema.

Obrigado,

Carlos

[cadeca]

Carlos7x, somente hoje vi seu pedido. Abaixo está a macro que estou utilizando. Não conheço praticamente nada de macros. Um amigo passou-a para mim e está funcionando a contento. Espero que te seja útil.

Sub Proteger()

Dim Planilha As Worksheet

Dim Senha As String

Senha = InputBox("Digite a Senha:", "Senha de Proteção")

For Each Planilha In Worksheets

Planilha.Protect Senha

Next

End Sub

Sub Desproteger()

Dim Planilha As Worksheet

Dim Senha As String

Senha = InputBox("Digite a Senha:", "Senha de Proteção")

For Each Planilha In Worksheets

Planilha.Unprotect Senha

Next

End Sub

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.