Desbloquear Folha de Excel

Abra a folha de calculo, vá em Ferramentas, Macro, defina um nome (por exemplo, DESPROTEGER) e clique em Criar. Na tela que for aberta, cole o seguinte código:

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 "Folha desprotegida com sucesso!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

Clique no botão executar (Play) e aguarde. Pronto.

Esta programação é usada para quebrar senhas que estejam no item "Desproteger planilha". Para senhas de abertura e gravação, use programas específicos como os disponíveis para download em:
http://www.officerecovery.com/excel/ ou
http://www.elcomsoft.com/aopr.html ou
http://www.passwordservice.com/excel/

Válido para documentos guardados em Excel até a versão 2003.