Jul
25
2007
9

Como desproteger una hoja Excel


Se puede desproteger la hoja mediante esta rutina que halla un password válido para la hoja (y que no tiene nada que ver con el que inicialmente tenía, ¡pero que es válido!). Para ello entra en el editor de Visual Basic (ALT+F11) y añade un nuevo modulo, tal y como se ve en la imagen:

Modulo

A continuación copia el siguiente codigo y pégalo:

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 "One usable password is " & 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

A continuacion, cierra el editor de Visual Basic y ejecuta la macro breakit. Para ello, puedes pulsar ALT+F8, seleccionar la macro y ejecutarla.

Macro

Por ultimo, tardará un poco en darte la password, pero finalmente te aparecera una ventana como la siguiente con el password para desbloquear la hoja excel y además ya te la deja desbloqueada.

Password
Share
Written by Javier Rodriguez in: Microsoft & Windows |

Theme: TheBuckmaker.com Blog Themes | Hostpapa customer, Berlin