Guia de como desproteger una hoja de Excel

 Super Regg Publicado el Miércoles 29 de Noviembre de 2006 a las 2:10pm  

 

 ¿Te has olvidado la contraseña de tu hoja de calculo?

 

¿Cómo descubrir la contraseña que protege una hoja de calculo?.
Truco valido para desvelarnos la contraseña de una hoja de calculo 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 menu de opciones, selecciona "Insertar". Selecciona a continuación "Modulo".

4.- En la parte izquierda, donde se observa el Proyecto, se habrá creado una carpeta llamada "Modulos", y dentro de ella, figurara "Modulo1".

5.- Nos situaremos en la ventana de la derecha al cliquear sobre de ese "Modulo1", 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 continuacion, una vez hayamos pegado ese codigo, 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 porque tener el mismo nombre que el procedimiento cuyo codigo aparece en el punto 5 anterior), y lo guardaremos por ejemplo, en "Mis documentos".

7.- Ahora imaginemos que tenemos una hoja de calculo protegida, y que queremos descubrir su contraseña . Para poder saber cual es su contraseña , tendremos que acceder al proyecto (Alt+F11), e importar el modulo (.bas) anterior. Para ello, desde el menu de opciones, seleccionamos "Archivo", y a continuacion "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 calculo protegida.

8.- Con la hoja de calculo cuya contraseña deseamos descubrir, en primer plano (activa), seleccionamos desde Excel (no desde VBA, aunque tambien se puede hacer, pero lo haremos de la forma mas gráfica y sencilla posible), en el menu 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 la contraseña de la hoja. El proceso puede tardar desde unos cuantos segundos, hasta algo mas 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 mostrara un mensaje, diciendonos cual era la contraseña 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 la contraseña original, como esta nueva que el sistema nos da, son equivalentes. Por ejemplo, si tenemos una hoja protegida con la contraseña "pepe", la podemos desproteger con esa contraseña , o con este que es el que obtenemos al ejecutar ese macro: "AAABBABBBAA/". Podeis probar que tras proteger una hoja con la contraseña "pepe", ésta se puede desproteger con la contraseña "pepe" (evidentemente), y también con la contraseña "AAABBABBBAA/".

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

Cortesia de http://www.forosdelweb.com/showthread.php?t=379602


Sabo muchas utilizas para

zlatan24 Respuesta publicada el Viernes 11 de Marzo de 2011 a las 12:12am 


Sabo muchas utilizas para determinar tal problemas. Pero uno de mejor es complicacion dada que socorre unos semanas antes y tiene muchas probabilidades - recuperador de archivos de excel.


EXCELENTE

HILDAYGREGO Respuesta publicada el Miércoles 17 de Noviembre de 2010 a las 5:16am 


Gracias German, tu aporte es valiosisimo, es facil de seguir las indicaciones, me funcionó perfecto y me ayudó en un trabajo que me tenia atareado muchos días.

Gracias


HILDAYGREGO

En mi computador hay muchos

zlatan24 Respuesta publicada el Sábado 31 de Julio de 2010 a las 10:34am 


En mi computador hay muchos xls documentos. Y tengo complicaciónes con estos files. Pero he encontrado - reparar archivo excel en el Internet hace algunas jornadas. Despues el instrumento ha recuperado mis files durante un minuto y de balde como he recordado.

 

 


excel

frankcontador Respuesta publicada el Viernes 11 de Junio de 2010 a las 2:47pm 


UTILICE ESTA OPCION PARA DESPROTEGER UNA HOJA DE EXCEL Y FUNCIONO. ES !EXCELENTE!


TE FALTA EN EL CODIGO FINAL

MADDOX Respuesta publicada el Domingo 23 de Agosto de 2009 a las 10:34am 


TE FALTA EN EL CODIGO FINAL EL EN SUB Y LISTO A FUERA CLAVES ESO TE FALTA YO LO PROVE Y ME FUNCIONA


EXCEL - MACROS

MADDOX Respuesta publicada el Domingo 23 de Agosto de 2009 a las 10:31am 


MUCHAS GRACIAS ME SIRVIO EL TRUCO, PERO TENGO UN PROBLEMA CON UN ARCHVIO QUE TIENE CLAVE EN VB TU NO ME PUEDES AYUDAR AQUITAR ESO PARA PODER QUITAR LAS OYTRAS CLAVES


Office

German Reyna Respuesta publicada el Sábado 4 de Julio de 2009 a las 10:26am 


que version del office manejas? yo le probado en office 2003 



Blogger | Youtube | Sistemas Digitales

ME PUEDEN AYUDAR

eleazar Respuesta publicada el Viernes 3 de Julio de 2009 a las 7:55pm 


HOLA: LOS PASOS A QUI MOSTRADOS SON MUY SENCILLOS Y LOS EJECUTE, SIN EMBARGO AL  REALIZAR LA EJECUCION DEL PASO NUMERO 8 ME ENVIO UN RECUADRO DE ALERTA CON LA SIGUIENTE LEYENDA: SE ESPERABA End Sub.  RAZON POR LA CUAL NO PUDE ENCONTAR LA CONTRASEÑA DE LA HOJA, Y LA VERDAD ME URGE YA QUE ES UN ARCHIVO DE MI TRABAJO. ME PUEDEN AYUDAR O CONTACTAR POR MAIL PRA AYUDARME. GRACIAS.


Funciona bien

German Reyna Respuesta publicada el Lunes 4 de Mayo de 2009 a las 3:04pm 


 lo probado este metodo y funciona de manera excelente



Blogger | Youtube | Sistemas Digitales

Asi es ramiro

German Reyna Respuesta publicada el Miércoles 29 de Noviembre de 2006 a las 2:46pm 


si solo es para quitar la contraseña a hojas protegidas de excel mas a documentos bloqueados con contraseña se utilizan otros metodos!

German Reyna - Webmaster - www.reggnetwork.net



Blogger | Youtube | Sistemas Digitales

Gracias German eres muy

ramiro9 Respuesta publicada el Miércoles 29 de Noviembre de 2006 a las 2:45pm 


Gracias German eres muy amable algo de esto andaba buscando yo, habra algo para desproteger archivos, por que segun entendi esta macro es solo para desproteger hojas de archivos que ya estan abiertos.