¿Te has olvidado el password de tu hoja de cálculo?

3pies · #1 (**permalink**) 20/03/2006, 03:02

¿Cómo descubrir la contraseña que protege una hoja de cálculo?.
Truco válido para desvelarnos el password de una hoja de cálculo protegida (no de un libro). Válido -en principio-, para todas las versiones de Excel. Extraido de la revista Computer Hoy.

Pasos a seguir:

1.- Crea un fichero nuevo de Excel (ej: Libro1.xls).

2.- Pulsa Alt y F11, para entrar en el proyecto VBA (Visual Basic para Aplicaciones).

3.- En el menú de opciones, selecciona "Insertar". Selecciona a continuación "Módulo".

4.- En la parte izquierda, donde se observa el Proyecto, se habrá creado una carpeta llamada "Módulos", y dentro de ella, figurará "Módulo1".

5.- Nos situaremos en la ventana de la derecha al cliquear sobre de ese "Módulo1", y copiaremos este código:

Código:

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

6.- A continuación, una vez hayamos pegado ese código, seleccionaremos en el menú de opciones, "Archivo", y a continuación "Exportar archivo". Le pondremos de nombre Descubrir_contraseña.bas (por ejemplo, aunque puede ser ota, ya que no tiene porqué tener el mismo nombre que el procedimiento cuyo código aparece en el punto 5 anterior), y lo guardaremos por ejemplo, en "Mis documentos".

7.- Ahora imaginemos que tenemos una hoja de cálculo protegida, y que queremos descubrir su password. Para poder saber cual es su password, tendremos que acceder al proyecto (Alt+F11), e importar el módulo (.bas) anterior. Para ello, desde el menú de opciones, seleccionamos "Archivo", y a continuación "Importar archivo". Buscamos la ruta donde habíamos guardado el fichero del punto 6 anterior, y lo seleccionamos. Salimos ahora del proyecyo VBA, para volver a la hoja de cálculo protegida.

8.- Con la hoja de cálculo cuya contraseña deseamos descubrir, en primer plano (activa), seleccionamos desde Excel (no desde VBA, aunque también se puede hacer, pero lo haremos de la forma más gráfica y sencilla posible), en el menú de opciones "Herramientas". A continuación, seleccionamos "Macro" y luego "Macros..." (si quereis ahorraros eso, pulsad Alt+F8). En la lista de macros, seleccionamos el que se llama "Descubrir_contraseña", y pulsamos el botón "Ejecutar".

9.- En ese momento, comienza el procedimiento para obtener el password de la hoja. El proceso puede tardar desde unos cuantos segundos, hasta algo más de un minuto (o incluso varios minutos). No os preocupeis, que el sistema no ha entrado en un bucle infinito

, tan solo hay que tener un poco de paciencia.

10.- Para finalizar, el sistema nos mostrará un mensaje, diciéndonos cuál era el password de la hoja, a la vez que la misma se desprotege. Puede que esa contraseña no sea literalmente la que puso el autor de la hoja que hasta hace unos segundos estaba protegida, pero tanto el password original, como este nuevo que el sistema nos da, son equivalentes. Por ejemplo, si tenemos una hoja protegida con el password "pepe", la podemos desproteger con ese password, o con este que es el que obtenemos al ejecutar ese macro: "AAABBABBBAA/". Podeis probar que tras proteger una hoja con el password "pepe", ésta se puede desproteger con el password "pepe" (evidentemente), y también con el password "AAABBABBBAA/".

Disfrutad este truquillo, sin excesos. Sed buenos, y no lo utiliceis para descubrir secretos inconfesables.

Salu2

SilveraR · #2 (**permalink**) 20/03/2006, 09:15

Muchas gracias por el truco.

Suerte

Fabuazul · #3 (**permalink**) 20/03/2006, 13:54

El código parece algo complicado....

Hay sw q permite hacerlo de una manera más fácil....

3pies · #4 (**permalink**) 21/03/2006, 03:02

Cita:

Iniciado por Fabuazul

El código parece algo complicado....

Hay sw q permite hacerlo de una manera más fácil....

Pero ¿qué necesidad tienes de instalar software, si lo puedes hacer desde el mismo Excel?.

Para gustos los colores...

waters2104 · #5 (**permalink**) 31/05/2007, 10:25

gracis por el truco, pero tengo un problemilla, una vez q intento abrir el libro protegido, en el paso 7, no me deja acceder a ningun menu, solo puedo escribir o cerrar en la ventana q me solicita el password, por lo q no la puedo tener activa cuando ejecuto la macro.
Podria solucionarlo?

gracias

3pies · #6 (**permalink**) 31/05/2007, 10:39

Por lo que parece, ese libro tiene el proyecto VBA protegido, con lo que no podrás importar el módulo bas.

Para poder desbloquear un poryecto VBA, creo que requerirás de algún tipo de software, del estilo del password recovery, por ejemplo.

Salu2

estlui · #7 (**permalink**) 22/01/2008, 08:48

Muchisimas gracias por este aporte!!!

jimmyesteves · #8 (**permalink**) 17/03/2008, 13:45

buenazo el truco, te pasaste

DONKIKO · #9 (**permalink**) 08/04/2008, 16:41

Hola, me encontré hoy con este truco y fue por mera casualidad. Muchas gracias, pude solucionar un problema que tenía desde hace unos días.
Saludos

noebenjamin · #10 (**permalink**) 11/04/2008, 13:32

3 pies... Te agradezco infinitamente el aporte. Me ha ayudado mucho y ahorrado demasiado trabajo!!

DIOS SALVE A 3 PIES!!

JANDRES · #11 (**permalink**) 24/04/2008, 10:26

Saludos;
Excelente truquito, me sirvio bastante, me desbaro de un problema que tenia desde hace tiempito.

Gracias.

JANDRES

oeca4 · #12 (**permalink**) 12/05/2008, 12:32

hola, es muy sencillo y a mi me funciono cuando tienes instalado el excel 2007:
abres el archivo en el cual vas a trabajar, luego oprimes control-F11, aparecera hay mismo una hoja con el nombre macro1.luego debes abrir una de las hojas en la cual quieres trabajar y oprimir control-F8 y le das en revisar desproteger hoja y automaticamente se desprotege y tu mismo podras colocar una nueva clave. eso es todo y no como aparece en otros lados se complican.

aguiben · #13 (**permalink**) 11/06/2008, 16:19

Me resulto muy util!!!... graciasss....

mijuanca5 · #14 (**permalink**) 04/11/2008, 19:10

necesito ayuda ...olvide la contraseña de un archivo en excell y necesito la informacion a lli contenida.....alguien me puede ayudar....gracias,,,

mijuanca5 · #15 (**permalink**) 04/11/2008, 19:37

He intentado por todos los medios de abrir un archivo en excell y no he podido aun....seria posible que me ayudaras ...si quieres puedo enviarte el archivo a un correo y usted me ayudaria a ver si es posible abrir dicho archivo...le comento que la informacion alli contenida es muy confidencial y muy importante para mi....si puede ayudarme se lo agradecere....mi correo es mijuanca5@gmail.com

Eina · #16 (**permalink**) 23/01/2009, 14:45

Exceleennteee!!!! se pasan de buenos!!!! que gran solucion!

UrRuX · #17 (**permalink**) 24/01/2009, 16:27

Excelente

SILVI85 · #18 (**permalink**) 26/01/2009, 03:27

Sabrían decirme como se puede averiguar la contraseña de un documento de word?

Gracias y Saludos

tratoespecial · #19 (**permalink**) 27/06/2009, 22:56

te felicito amigo por esos datos que ya me tenian atormentado por no poder modificar una hoja de calculo que olvide la contraseña MIL GRACIAS

jlsoutoz · #20 (**permalink**) 07/07/2009, 10:23

esto amerita una calificacion mas que asombrosa, esto es SOBERVIO!!!!!!

Gliffindor · #21 (**permalink**) 08/07/2009, 16:48

Excelente probaremos como jala con alguno de los archivos que tengo por ahi!!, Gracias!!!

baha49 · #22 (**permalink**) 08/10/2009, 11:47

Excelente solucion a mi problema, esque va me habia deseperado, de modificar algunos datos; pero se me olvido la contraseña y no podia. te lo agradesco infinitamente... mil gracias... saludos

GuerreroGalactico · #23 (**permalink**) 24/01/2010, 16:01

Gracias por compartir tu conocimiento con los demás miembros del foro, el aporte es fantástico y muy útil. Saludos

MKZMOY · #24 (**permalink**) 10/03/2010, 20:59

Cita:

Iniciado por 3pies

¿Cómo descubrir la contraseña que protege una hoja de cálculo?.
Truco válido para desvelarnos el password de una hoja de cálculo protegida (no de un libro). Válido -en principio-, para todas las versiones de Excel. Extraido de la revista Computer Hoy.

Pasos a seguir:

1.- Crea un fichero nuevo de Excel (ej: Libro1.xls).

2.- Pulsa Alt y F11, para entrar en el proyecto VBA (Visual Basic para Aplicaciones).

3.- En el menú de opciones, selecciona "Insertar". Selecciona a continuación "Módulo".

4.- En la parte izquierda, donde se observa el Proyecto, se habrá creado una carpeta llamada "Módulos", y dentro de ella, figurará "Módulo1".

5.- Nos situaremos en la ventana de la derecha al cliquear sobre de ese "Módulo1", y copiaremos este código:

Código:

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

6.- A continuación, una vez hayamos pegado ese código, seleccionaremos en el menú de opciones, "Archivo", y a continuación "Exportar archivo". Le pondremos de nombre Descubrir_contraseña.bas (por ejemplo, aunque puede ser ota, ya que no tiene porqué tener el mismo nombre que el procedimiento cuyo código aparece en el punto 5 anterior), y lo guardaremos por ejemplo, en "Mis documentos".

7.- Ahora imaginemos que tenemos una hoja de cálculo protegida, y que queremos descubrir su password. Para poder saber cual es su password, tendremos que acceder al proyecto (Alt+F11), e importar el módulo (.bas) anterior. Para ello, desde el menú de opciones, seleccionamos "Archivo", y a continuación "Importar archivo". Buscamos la ruta donde habíamos guardado el fichero del punto 6 anterior, y lo seleccionamos. Salimos ahora del proyecyo VBA, para volver a la hoja de cálculo protegida.

8.- Con la hoja de cálculo cuya contraseña deseamos descubrir, en primer plano (activa), seleccionamos desde Excel (no desde VBA, aunque también se puede hacer, pero lo haremos de la forma más gráfica y sencilla posible), en el menú de opciones "Herramientas". A continuación, seleccionamos "Macro" y luego "Macros..." (si quereis ahorraros eso, pulsad Alt+F8). En la lista de macros, seleccionamos el que se llama "Descubrir_contraseña", y pulsamos el botón "Ejecutar".

9.- En ese momento, comienza el procedimiento para obtener el password de la hoja. El proceso puede tardar desde unos cuantos segundos, hasta algo más de un minuto (o incluso varios minutos). No os preocupeis, que el sistema no ha entrado en un bucle infinito

, tan solo hay que tener un poco de paciencia.

10.- Para finalizar, el sistema nos mostrará un mensaje, diciéndonos cuál era el password de la hoja, a la vez que la misma se desprotege. Puede que esa contraseña no sea literalmente la que puso el autor de la hoja que hasta hace unos segundos estaba protegida, pero tanto el password original, como este nuevo que el sistema nos da, son equivalentes. Por ejemplo, si tenemos una hoja protegida con el password "pepe", la podemos desproteger con ese password, o con este que es el que obtenemos al ejecutar ese macro: "AAABBABBBAA/". Podeis probar que tras proteger una hoja con el password "pepe", ésta se puede desproteger con el password "pepe" (evidentemente), y también con el password "AAABBABBBAA/".

Disfrutad este truquillo, sin excesos. Sed buenos, y no lo utiliceis para descubrir secretos inconfesables.

Salu2

MKZMOY · #25 (**permalink**) 10/03/2010, 21:01

UPS...

Me registre para agradecerte por esta gran aportacion, me salvo la vida....gracias

acervanttes · #26 (**permalink**) 14/06/2010, 11:47

gracias por el truco, funciona tambien para 2007?

RatonesPelones · #27 (**permalink**) 14/06/2010, 17:51

MKZMOY acervanttes, lean las normas del foro, no se permite revivir temas viejos. En todo caso si van a agradecerle a quien solucionó su problema agreguenle karma y/o envíenle un mensaje privado.

BrujoNic · #28 (**permalink**) 15/06/2010, 13:56

Cerrado...

No se permite revivir temas viejos.