Cómo abrir una planilla excel protegida con clave contraseña

Muchas veces nos hemos encontrado con que no recordamos la clave de una planilla excel y perdemos toda la información. Existe un método para abrir una hoja excel con contraseña mediate una rutina de programación que debemos insertar en el visual basic. Nos devolverá una clave que no es necesariamente la original, pero que al menos funciona.

Para acceder al mismo se debe ir al menú de Excel y luego a: "Herramientas / Macro / Editor de Visual Basic" (se puede acceder también con ALT+F11).

Una vez dentro del editor, pegamos el código, y cerramos el editor. Luego seleccionamos la hoja de Excel que queremos desproteger. y ejecutamos la macro breakit (ALT+F8, para seleccionarla). Tras la ejecución, un mensaje dará un password equivalente al original, y la hoja de Excel ya estará desprotegida.

El código que nos permite desproteger una hoja de Excel, es el siguiente:

Sub breakit()
Dim i As Integer, j As Integer, k As Integer
Dim 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 "Un password valido es " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

No he probado si funciona, pero creo que vale la pena tenerlo en cuenta.

fuente: planetaip.blogspot.com