Esqueceu a senha da planilha?

Minha principal ferramenta de trabalho é o Excel. Apesar de não ser muito bom em matemática, nem tampouco gostar da matéria, gosto muito de trabalhar com o Excel. Tento explorar o máximo de seus recursos. Por causa disso, muita gente vem até mim para tirar dúvidas, elaborar planilhas, tabelas dinâmicas, gráficos, etc. E vez ou outra aparece um perdido com uma planilha protegida sem lembrar da senha. E aí?


Para resolver esse probleminha de senha esquecida, utilizo esse o código/macro (abaixo) para "quebrar" a senha e assim desproteger a planilha.

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

OBS. Essa macro não serve para senha do arquivo, apenas da(s) planilha(s).