Esqueceu a senha de desproteção da planilha?

Olá,
como todos os tópicos que envolvem o tema estão marcados como "Aviso de tópico antigo", então resolvi criar outro, já que vez por outra aparece alguém com o mesmo problema.

Na própria planilha protegida, aperte as teclas Alt F11, você entrará no ambiente do VBA.
No menu, clique em Inserir>Módulo, copie e cole o código:

Sub DesprotegerPlanilhaAtiva()
Dim i, i1, i2, i3, i4, i5, i6, j, k, l, m, 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 a tecla de atalho F5, pronto, planilha desprotegida.
Para voltar ao Excel e trabalhar na planilha, clique no ícone do Excel no canto superior esquerdo.

Obs: Esse código não é meu e não sei a quem dar os créditos, tá rolando na net.

Edit.: Só enxuguei a segunda linha do código.

Abs,