Desbloquear hojas de calculo

Agrego informacion que me sirvio para desbloquear hojas xls.
La info la encontre en la web, no tengo la menor idea de quien es el autor.
De todas maneras, es TOTALMENTE EFECTIVO !!!!


Los pasos a seguir son los siguiente:

1. Abra el Libro excel donde está la Hoja bloqueada.

2. Teclee Alt + F11, esto abrirá el editor de Visual Basic

3. Haga Click en insertar => Modulo

4. Copie el siguiente codigo, y peguelo en la ventana que acaba de abrir (Modulo).
El codigo es el siguiente:


Sub Descubrir_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 & "La hoja ha sido desbloqueada"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub


5. Cierre el editor de Visual Basic.

6. Estando en la pagina bloqueada, presione Alt + F8, esto mostrara las macros presentes en el libro de trabajo.

7. Haga click en la que dice Descubrir Contraseña y luego en ejecutar.

8. Espere unos segundos (o un par de minutos dependiendo de la clave)

9. Aparece un mensaje donde indica que la pagina ha sido desbloqueada.

10.Guardar los cambios y LISTO !!!

Espero que sea de utilidad.

5 comentarios - Desbloquear hojas de calculo

@landcas +1
interesante, voy a probarlo +5
@pappo0000
Al abril el editor de Visual Basic no tengo permitida la opcion insertar modulo, alguna sugerencia?
@AmericanBoy88
excelente!!!!!!!!!! funciona muy bien!!!!!!!!!