Desproteger hojas de Excel Facilmente

Hola amigos taringueros, hoy les traigo algo que es muy util para cualquiera que trabaje con Excel 2003. Me tope con un gran problema, necesitaba sacar una imagen de un libro que estaba protegido y no pude desbloquearlo con ningun programa. Entonces encontre esta macro, espero que les sirva.

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 "One usable password is " & 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


Copian y pegan en un modulo de visual del excel y luego dentro del libro a desproteger le dan ALT + F8 y eligen la macro y la ejecutan, esperan unos segundos y listo, le cagamos al creador de la plantilla

Si no les sirve, agradezcan igual, total no cuesta nada

43 comentarios - Desproteger hojas de Excel Facilmente

@v4lc4ch +3
PANA FUNCIONA FULL GRACIAS POR TU PORTE

@Juande15the +1
gracias por el aporte. a alguien le sirvio y de paso nos ayudo a muchos. desde Honduras
@elmualen +1
Hola muchas gracias, ademas de desproteger el archivo te dice cual era la clave!!! Fabuloso!!! Te debo los puntines!!!
@p_avilacamps
Disculpen la ignorancia pero como es el procedimiento para pegar en un módulo, es decir se lo que es copiar y pegar pero no logro entender como busco el módulo y luego lo abro etc, gracias
@diegomorale +2
Muy bueno jinny, 100% efectivo. Muchas gracias por tan valioso aporte, me ayudo enormemente.
@johnaguiar +1
EXCELENTE truco jinny, muchas gracias por compartirlo con nosotros!!!
@replexfire
GRACIAS BROTHER ME SALVASTE ESTABA HACIENDO UN FORMATO, PUDE OBTENER NUEVAMENTE LA CLAVE
@guimarra
Funca a las mil maravillas men, te agradezco y benditas macros...
@tribaksys
sirve para 2007 ? quien usa 2003 actualmente ? a menos de que no tengan pa algo mejor
@ubuntu2008
excelente funciona a las mil maravillas
@aceg10
gracias jinny... tu si sabes...si tendria puntos te doy 10 ´por dos meses xd...
@jcbrescia
muchas gracias por el aporte, esta muy bueno, si tuviera puntos te daria 100
@alejgallo
busque por otros lados y el mismo "truco" no me servia, no se si fue como lo publicaste o que pero el tuyo me sirvio de 10, por eso te dejo 10.
@clubaliens
En vista que me ayudo tu post. hoy me comprometo hacerte NFU.

+10.
@arluis100
clubaliens dijo:En vista que me ayudo tu post. hoy me comprometo hacerte NFU. +10.

+10
@b_nadier
arluis100 dijo:
clubaliens dijo:En vista que me ayudo tu post. hoy me comprometo hacerte NFU. +10.
+10

Tenes que darnos las gracias con algunos puntos si te acuerdas
+10.
@clubaliens
b_nadier dijo:
arluis100 dijo:
clubaliens dijo:En vista que me ayudo tu post. hoy me comprometo hacerte NFU. +10.
+10
Tenes que darnos las gracias con algunos puntos si te acuerdas +10.

Te lo dije ya eres NFU bienvenido la comunidad de New Fuleros.
@_Fede11_ +1
Gracias funciono bien!!
@andario +1
lo probare... viejo post pero no cuesta agradecer muchas gracias
@volvorena +1
Te dejo 10 puntos, excelente informacion, gracias por compartir
@Webmostro +1
Funciona!!!!!. Funciona!!!!.
@HM77 +1
Gracias!
@jackos852427 +1
FUNCIONAAAAAAAAAAAAAAAAAAAAAA MUCHAS GRACIAS BROTHER +10
@jinny
De nada locooo!!
@Kiuler +1
Titan!! Ahora lo pude cagar a este forro que le metio contraseña al excel (gente egoista del orto). Gracias fenomeno!!
@jinny
De nada che!! No puedo creer que todavía siga funcionando xD
@genius2
Si funciona en excel 2007 estupenda ayuda,muchas gracias,tremendo tu aporte.
@gund182 +1
no me funciona si le envio el archivo lo intenta....????
@jinny +1
Siii de una, mandame nomas
@gund182
@jinny ok funciono
@Felixrdls +1
Muchas Gracias.Me fue muy util, si no es mucha molestia me ayudas a ver hojas ocultas? Gracias
@jimmy2010 +1
Escribir un comentario...
@eljuliangomez +1
Epic!! Lo probé en un Excel 2010 y te tira la contraseña.
Realmente Excepcional!!
@estoyatiempo +1
Gracias! Fueron los puntos, me resulto muy util.
@bastifran +1
Gracias , me resulto , fue muy útil +10
@spideybauer
Van los 10 de hoy y a favoritos, me resultó muy útil, probado en Excel 2013
@vverdugop
buena compadre, funcionando perfecto en excel 2010