Abaixo informamos uma maneira muito simples de se desproteger várias planilhas de uma só vez no excel. É um codigo em VBA onde será necessário apenas nosso leitor copiar e colar.
Observe nesta dica que podemos utilizar este código para diversas funionabilidades do Excel tais como: desproteger planilhas, proteger planilhas, ocultar planilhas, reexibir planilhas, etc.
Espero que tenham gostado de mais esta super dica de excel.
Sub desproteger_todas_planilhas()
Dim i As Integer
' faz um loop nas planilhas padrão do excel
' caso haja mais do que 03 planilhas a serem desprotegidas altere o numero 3 pra a quantidade desejada
For i = 1 To 3
Sheets(i).Unprotect Password:="123" ' onde 123 é a senha informada
Next i
MsgBox "Planilhas desprotegidas com sucesso!!!" ' mensagem opcional
End Sub
3 comentários:
Olá ! "EXCELENTE" dica, mas tem como fazer para o excel solicitar a senha em uma caixa ?
Obrigado e PARABÉNS pela(s) dica(s), encontrei poucas pag da web assim.
César!!! rasec_ba@hotmail.com
Em breve publicaremos uma postagem somente sobre caixas de dialogo, porem em executando um erro fatal tem uma excelente dica para o que você precisa.
César...
respondendo sua pergunta...
eu criei, com base na macro disponivel a solução que vc quer.
Veja o codigo:
Sub desproteger_todas_planilhas()
Dim i As Integer
' faz um loop nas planilhas padrão do excel
' caso haja mais do que 03 planilhas a serem desprotegidas altere o numero 3 pra a quantidade desejada
Arq = Application.InputBox("Qual Planilha deseja desproteger?")
Pass = Application.InputBox("Digite a Password")
'For i = 1 To 3
If Pass = "123" Then
Sheets(Arq).Unprotect Password:="123" ' onde 123 é a senha informada
'Next i
MsgBox "Planilha(s) desprotegida(s) com sucesso!!!" ' mensagem opcional
Else
MsgBox "Desculpe!! Senha Incorreta"
Pass = Application.InputBox("Digite a Password")
End If
Postar um comentário