Sacar contraseña a una hoja Excel

¿No te ha ocurrido alguna vez que necesitas cambiar un formato en un archivo excel y justo esa hoja está protegida con clave?

¿O quizá tu mismo en algún momento le pusiste clave, pero no la recuerdas?

Para solucionar esto hay varias formas, entre ellas, softwares que te permiten acabar con la contraseña por "fuerza bruta", es decir, que prueba una y otra vez varias contraseñas en una lista predeterminada hasta que una de ellas coincida. este trabajo es laborioso
dependiendo de los bits de la contraseña... puede durar desde horas a días, y aún así el éxito no está asegurado.

Otra forma de solucionar el problema (en este caso sólo si se trata de una hoja, y no de una contraseña del libro completo) es utilizar un código que se implenta como macro, la que al ejecutarse logra darte una contraseña que logrará abrir la hoja y desbloquearla
completamente. No te dirá la contraseña original, pero al menos podrás abrir el archivo. No pasará inadvertido si lo que quieres es devolver el archivo intacto, porque estará desprotegido, pero puedes jugarle una buena broma a alguien cambiando de ahí en adelante la contraseña a una que tu pongas.

Si es tucaso, sigue las siguientes instrucciones:

Paso 1: Abrir el archivo de MS Excel en la hoja protegida con contraseña. Si tratamos de modificar alguna de las características bloqueadas, saladrá esto:


Sacar contraseña a una hoja Excel


Paso 2: Abrir el editor de Visual Basic, en el menú Herramientas > Macro > Editor de Visual Basic.

Paso 3: Seleccionar en el editor la hoja a desproteger (con doble click) y pegar el código siguiente (Todo lo que está en verde):


Sub breakit()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then
MsgBox "Un password valido es " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub


Paso 4:Luego ir al menú Archivo > Cerrar y volver a Microsoft Excel.

Paso 5: Ir a menú Herramientas > macro > Macros...

Paso 6: Ejecutar la Macro "Breakit" que aparecerá en la lista...

Paso 7: Saldrá un cuadro de diálogo con una contraseña válida, que si la ponemos cuando la solicite el archivo, desbloqueará la hoja (esto demora unos 10 segundos).

Con esto entramos al archivo, hacemos lo que nos parezca y luego podemos volver a bloquearlo con una nueva contraseña o dejarlo desprotegido.

Unos puntos no cuestan nada....
Agredecer, mucho menos.

Inokram

47 comentarios - Sacar contraseña a una hoja Excel

@FerStaFe
Muy bueno! cuando me pase lo pruebo!
@mn800 +1
lo hice esta Genial Gracias , soy novato sin puntos pero esto se merece mi comentario Master
@AlucardAR
No puedo dar puntos, pero a favoritos,
si anda bien, excelente aporte!
@ivan_mancia
En realidad es una herramienta excelente cuando sea necesaria utilizarla, los felicito por este enorme aporte. Mis respetos y saludos.
@LePoetMaudit
Lo probare mañana en la oficina, se agradece.

Bytezz
@chango73
no sirve la contraseña que te da...


te da siempre la misma contraseña.

\" AAAAAAAAAAA \"
@profe_dario
excelente felicitaciones.

saludos
@YoBestia
Brillante el aporte. Patetico Microsoft...
@eljerepensante
borra el otro mensaje tarda pero funciona muchas gracias por el dato man te pasaste ahora q se agarre mi jefe le descajeto todos los excel pedorros q usa
saludos
@cloncon
genio,gran aporte saludos
@kikeitor
Gracias mil Man, no sabes cuan agradeciod estoy
@mauricio70
gracias. Muy Bueno. Funciona
@gonfran7
la verdad muy bueno, muchas gracias
@jfmojicam
Muchas Gracias Muy Bacano
@ciroalfa
Maestro...eres grande!!! Muchas gracias por el aporte. Me sacaste de un lío.
Saludos!!
@Patacom
Excelente aporte, lamentablemente parece que le sirve solo a los nuevos porque nadie te ha premiado con puntos , a favoritos y gracias maestro.
@Guillerbeto
Gracias amigo! justo andaba necesitando modificar una tabla de datos, pero solo para fines personales te dejo puntos porque la verdad me funciono de 10, asique van +10
@ASRIX
Buenísimo!
Lo usé esta mañana en un archivo y funciona de 10! Me salvó de rehacer un libro completo
No tengo puntos porque soy novato, si no irían con todas las ganas. Así que contá con mi gratitud!!!!
@horo1319
excelente...funciona posta!!!! muchas gracias...
cómo se dan puntos?????
@BomberoSexual +3
muy bueno, funciona de maravilla
a favoritos y todo esfuerzo tiene recompensa

MS
@hhjjkk
Buenisimo Loko funciono re bieeeeeennn lo necesitaba para el laburo, grande +10
@Naukas
no te tenía fe che. Sobre todo porque tengo Excel 2007. Peeeero.... Busqué como activar los macros y todo eso.. y....

FUNCIONO!
+10, GENIO!
@fubihoma
Si funciona ya lo probe
Y lo probe con excel 2010 +5
@polch +1
Excelente!!!
no me deja dejarte puntos :-s, a favoritos
@elmesiasperdido
Excelente, me funciono en Excel 2007, gracias x la info +10
@remo06
Muy bueno!!! gracias!!!!
@pacho1978
Muy bueno gracias funciono en excel 2010, ahi van 10
@rex100471
muchas gracias a hora nadie podra conmigo jejejejejeje
@rhaul10
auuqe esto iiaa tiene miles de años auun sirvio muchas gracias amigo le aoraste a alguien mucho tiempo
@vverdugop
excelente viejo, subido hace 4 años y aun funciona...probado en excel 2013 y andubo perfecto....te daria 10 pero solo soy un simple aprendiz....
@jantil
Y cuando te pide contraseña para insertar modulos en VB, como le haces?
@GrYpHuS87
Gracias! Sirvió perfecto!
@piolo2008
Gracias ...por tus aportes... Saludos