Como desproteger planilhas

Olá pessoal, segue mais um código para desbloquear aquela planilha que você esqueceu a senha.


1 - Com a planilha aberta, vá em Ferramentas > Macros > Editor do Visual Basic

ou se preferir, utilize o atalho Alt+F11

2 - No editor do Visual Basic, clique em Inserir > Módulo

3 - Cole o código abaixo na área em branco

'************************ Aqui começa o 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
'************************ Aqui termina o código! ********************************


4 - Feche o editor do Visual Basic e no Excel, clique em Ferramentas > Macro > Macros, ou se preferir utilize as teclas de atalho ALT+F8

5 - Na janela Macro, selecione a Macro criada e clique em Executar:

6 - Pronto, sua planilha está desbloqueada. Utilize em todas as planilhas ativas.

E é isso aí pessoal, mais um código simples para desbloquear sua planilha.