F. C. E. F. A.

Muchas veces nos encontramos con libros de excel interesantes, pero no se pueden modificar las hojas por que estan protegidas, en otras ocaciones no es posible visualisar las formulas por lo mismo.

Aqui un truco para desproteger las hojas:

1.-Abres el libro que quieres desproteger, luego insertas un nuevo libro Alt+U

(esto es por si el autor haya protegido las propiedades de VBAProject del libro)

2.-Abrimos el editor de visual Basic con Alt+F11 (Menu Herramientas->Macro->Editor de Visual Basic)

3.-Una vez visualizado el editor de visual Basic, clic en menu Insertar->Modulo

(si te pierdes en la parte izquierda debes visualizar los libros abiertos, selecciona el libro que insertaste)

4.-En el editor de codigo que nos aparece pegamos 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 contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

5.-Cerramos el editor de Visual Basic Alt+Q y regresamos a la hoja de Excel que queremos desproteger y presionamos Alt+F8 (Herramientas->Macro->Macros)

6.-Nos saldra una ventanita con el listado de las macros que contiene el libro, seleccionamos el que dice "Descubrir_contraseña" y damos clic en Ejecutar

con un poco de paciencia tendremos la hoja desprotegida. la contraseña que aparece "AABAABBBBAAA" puede no ser real