Objetivo: Realizar a desproteção de todas as planilhas ativas de um arquivo Excel de uma vez só. Há um outro arquivo no site de como desproteger uma planilha de cada vez. Este artigo demonstra um código VBA para desabilitar todas as planilhas de uma só vez.
Ás vezes é necessário alterar uma planilha antiga, o problema é que você perdeu a senha dela.
Para resolver este problema eu localizei na internet o código abaixo que pode ser muito útil para tirar a proteção do Excel nas suas planilhas.
Como tirar a senha da planilha:
- Clique na aba Desenvolvedor e no botão Visual Basic
- Na guia de projetos á esquerda localize o projeto VBAProject(PERSONAL.XLSB)
- Clique na pasta módulos deste projeto, e abra um dos módulos
- No final dos códigos que existem lá, cole o código abaixo
Public Sub lsDesbloquearTodasPlanilhas()
Dim lQtdePlan As Integer
Dim lPlanAtual As Integer
'Inicia as variáveis
lQtdePlan = Worksheets.Count
lPlanAtual = 1
'Loop pelas planilhas
While lPlanAtual <= lQtdePlan
Worksheets(lPlanAtual).Activate
DesprotegerPlanilhaAtivaB
lPlanAtual = lPlanAtual + 1
Wend
MsgBox "Planilhas desprotegidas!"
End Sub
'Desproteger Planilha
Sub DesprotegerPlanilhaAtivaB()
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
' MsgBox "One usable password is " & Chr(i) & Chr(j) & _
' Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
' Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub- Clique na guia Desenvolvedor
- Clique no botão macros e selecione PERSONAL.XLSB!lsDesbloquearTodasPlanilhas.
- Clique em executar.
Pronto! O resultado pode demorar um pouco para aparecer, mas todas as planilhas do arquivo Excel aberto serão desbloqueadas.
Fonte
