El post que buscas se encuentra eliminado, pero este también te puede interesar

Descubrir Constraña Excel Hoja Protejida

Hola amigos de taringa es mi primer post ja asi que espero que me salga bien !
Acabo de salvar una lista de precio que le habia puesto password y por complicarla..
Ya se imaginaran jaja.
Les dejo esto que les puede ser util.


¿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/".

Saludos y gracias,
Ariel

14 comentarios - Descubrir Constraña Excel Hoja Protejida

@bordako
excelente! FUNCIONÓ DE MIL MARAVILLAS!
MUY BIEN EXPLICADO
TE MERECÉS + Q DIEZ, PERO BUEH: +10
@tachami11
Gracias chavón, soy novato también , así que te debo los puntos. Pero tu post me fue de mucha utilidad. GRACIAS.
@vequivelez
gRANDE gENIO!!!justo lo q necesitaba, lastima q soy novato si no te doy 10,Saludos
@angora1973
Gracias me funciono a la perfeccion tendras uno para desproteger los modulo de VBA de una hoja de excel telo agradeceria
@capon22
pero que pasa cuando pide clave al momento de hacer doble click que hago????
@SantiaS
capon22 dijo:pero que pasa cuando pide clave al momento de hacer doble click que hago????
@elgato33
hola, cuando quiero abrir el archivo protegido me pide la pass, tanto aceptando como cancelando cuando ejecuto esto me dice que la contraseña es, y pone 11 A mayusculas, pero cuando quiero abrir con esa pass, dice que no es correcta, que puede ser, gracias
@Mar_ev_wt
aaahhh... me re sirvio!!! 3 puntos para vos (mas no puedo, soy novata), pruebenlo... funciona!!!
@invitadomx
Excelente y malévolo!

Llegué a este tema buscando sobre la seguridad de excel y me encuentro con todo lo contrario.

Ahora, ¿de qué forma puedo proteger una hoja de excel sin que le rompan la clave de forma tan rápida y accesible como nos muestras?

Y de paso otra pregunta, ¿cómo puedo proteger las macros o el VBA para que no modifiquen lo que programo?

Saludos y puntos.