Desprotegendo Planilhas de Excel
Na empresa existe uma planilha que faz alguns cálculos para fazer fretamento de ônibus.
Essa planilha tem alguns campos protegidos, onde precisava de algumas alterações nos campos bloqueados.
Depois de algumas pesquisas chegamos a seguinte solução:
1 – Com a planilha aberta aperte “Alt+F11“, isso abrirá o “Editor do Visual Basic“.
2- Com o “Editor do Visual Basic” aberto localize e clique duas vezes no nome da aba que queira destravar as células.
3- Cole o código abaixo na janela com fundo branco que se abrirá.
Código:
Sub DesprotegerPlanilhaAtiva()
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 “Planilha desprotegida com sucesso!!!”
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Pressione “F5” e aguarde o processo de desbloqueio.
Irá surgir a mensagem: Planilha desprotegida com sucesso!!!
Esta macro é para desbloqueio de planilhas e não de arquivos. Funcionou somente no pacote office, no BrOffice não teve sucesso.
Para desbloquear arquivos é necessário um programa do tipo Password Recovery, muita sorte e muita paciência.