Macro proteger varias planilhas com senha

Question

Boa noite, amigos. 
Estou pela primeira vez buscando ajuda em um Forum. Escolhi este por me parecer bastante eficaz.
Tenho alguns arquivos Excel, cada um deles com v&aacute;rias planilhas (cerca de 50) e todas elas t&ecirc;m dados a ser preservados. Como elas tem dados alimentados por outras pessoas, vou protegendo ou desprotegendo cada uma delas, a medida que eu necessite fazer atualiza&ccedil;&otilde;es ou ajustes.
Gostaria imenso, que vcs criassem uma macro que protegesse e desprotegesse todas elas de uma vez, mas que para isso eu tenha que digitar uma senha, e que preferencialmente eu acione essa senha a partir de uma c&eacute;lula em uma das planilhas.
Espero que vcs consigam me ajudar.
Obrigado.

Answer

[quote=cacau123, post: 5092568]Boa noite, amigos. 
Estou pela primeira vez buscando ajuda em um Forum. Escolhi este por me parecer bastante eficaz.
Tenho alguns arquivos Excel, cada um deles com v&aacute;rias planilhas (cerca de 50) e todas elas t&ecirc;m dados a ser preservados. Como elas tem dados alimentados por outras pessoas, vou protegendo ou desprotegendo cada uma delas, a medida que eu necessite fazer atualiza&ccedil;&otilde;es ou ajustes.
Gostaria imenso, que vcs criassem uma macro que protegesse e desprotegesse todas elas de uma vez, mas que para isso eu tenha que digitar uma senha, e que preferencialmente eu acione essa senha a partir de uma c&eacute;lula em uma das planilhas.
Espero que vcs consigam me ajudar.
Obrigado.[/quote]
 
Ops... seja bem vindo!!!
tenta essa macro...
 
Sub Proteger()
On Error Resume Next
    Dim ws As Worksheet
    Dim codigo As String
    codigo = InputBox(Por favor inserir o C&oacute;digo)
    For Each ws In ThisWorkbook.Worksheets
    ws.Protect (codigo)
    Next ws
End Sub

Sub Desproteger()
On Error Resume Next
    Dim ws As Worksheet
    Dim codigo As String
    codigo = InputBox(Por favor inserir o C&oacute;digo)
    For Each ws In ThisWorkbook.Worksheets
    ws.Unprotect (codigo)
    Next ws
End Sub

Ferramentas

Mover Tópico