Quitando contraseñas de las hojas bloqueadas de excel

Hola fieles lectores de mi humilde blog.

Nunca les ha pasado (espero que no) que protegen un documento sagrado para que nadie lo pueda modificar y resulta que despues de un tiempo el magno custodio de dicho documento no lo puede abrir tampoco.

Pues la historia es la siguiente.

Me dispongo un día sábado a realizar una traducción de una encuesta y resulta que había bloqueado todas las hojas de excel para que el encuestado no pudiera manipular la encuesta, para este fin puse una contraseña, que no recuerdo, al documento. Luego de desesperados 10 intentos con mis contraseñas más utilizadas, busque en internet como desbloquear una hoja de excel y me encontre el siguiente código que me salvó la vida, solo lo ingrese en las macros de excel y voilá.


Fuente: http://gchable.wordpress.com/2008/01/21/quitar-contrasenas-en-libros-de-excel/

Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub


Saludos