Quisiera compartir un pequeño truco que encontré , en la pagina: http://www.trucosaurio.com/
<quote>
Para desbloquear y desproteger una hoja de cálculo de Excel si nos olvidamos la contraseña, lo vamos a hacer mediante una rutina que te vamos a proveer a continuación, sigue estas instrucciones:
1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.
2. Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones “Trucosaurio – Excel” o un nombre a tu elección, y pulsa el botón Crear.
3. Se te abrirá una nueva ventana, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el siguiente código:
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 «La contraseña 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
4. Pulsa el botón Ejecutar desde el menú o desde la barra de herramientas.
Si todo salio bien, veras un mensaje que dice: “La contraseña es: AAAAA…”;no es la que originalmente tenia, pero funciona perfectamente. De ahora en más, podras modificar todas las celdas bloquedas
</quote>
Nota: Lo hemos probado en Excel 97, Excel 2000, Excel 2003,Excel 2007 funcionando a la perfección
umm no sirve para desproteger unarchivo excel dice error de sintaxis :S sera porq en el archivo q kiero abrir no se puede ver ni las celdas si no ai contraseña :s nose q ice pero si logras q se aga visible avisa!!!
me funciono…..muchas gracias 🙂
el prolema es que la las comillas estan mal digitadas, solo debes cambiar las comillas que estan en el codigo por estas «, eso es todo..!!!!
REMPLAZA SOLO ESTAS LINEAS DE CODIGO
MsgBox «La contraseña 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)
Hola , efectivamente este truco es solo para desbloquear celdas con password , y respecto al error de sintaxis ,ese error es por que al copiar y pegar el código wordpress sustituye las comillas («) por unas comillas de ladito. Así que tendrás que colocarlas manualmente 🙂
Hay alguna forma de abrir un archivo con contraseña?
Saludos
SI ME SIRVIO GRACIAAS
Muy bueno, me sirvio mucho
Gracias
efectivamente lo probe y me aparecio el letrero de q mi contraseña es: AAAAAAA…… con esta lo fui a abrir pero no me deja entrar-… =(… nuevamente me pide contraseña….. AYUDA POR FAVOR!!!!!!!!!!!
Será mejor que verifiques que efectivamente estas copiando bien y sustituyendo las comillas (”) POR QUE COMO LO DIJE wordpress las cambia y eso provoca que al pegar el código en Excel NO FUNCIONE.
Tienes algo mal, ya que no debes de poner la contraseña tal cual, es simplemente un aviso, pero automaticamente te lo abre.
Excelente mi hermano solo pones las comillas y walaaaaa ya te da la contraseña gran paro buena vida a todos
gracias totalesssssssssss
La verdad simepre dudo de estos trucos… he probado para .ppt .rar y una usb pero ningun dio resultado. ESTE es el primero que si. Sigan las indicaciones y aclaraciones dadas.
Se te agradece la info y al post original tambie. Ahora se puede filtrar la info de las columnas que necesita. 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂
excelente funciona a la perfeccion, gracias Microsoft por ser tan vulnerable. estamos en contacto amigos.
Se me olvido la clave mi archivo el cual lo habia trabajado en excel en el 2004 no me acuerdo la version de ese año pero ahora utilizo excel 2007 y no me acuerdo de la clave kisiera saber como puedo hacer, gracias
Saludos cordiales
Enrique
Respondeme urgente porfas
Este truco es solo para las celdas protegidas por claves, pero existen otras herramientas que pueden ayudarte a sacar la clave de un archivo de Excel, aunque la gran mayoria son sobre la fuerza bruta
Y que herramientas o programas son? NOMBREEEEES XFVR!!!! lml
@XXX Pues yo suelo usar: http://goo.gl/2qOfm pero si quieres un poco mas exacto: http://goo.gl/QNuaX
Saludos, aplique el método descrito y está muy interesante, pero cuando intenté realizarlo en otro archivo, al presionar ALT+F8 e intentar crear una macro no me permite, dado que dentro de los módulos de VB el ´que lleva por nombre EUROTOOL.XLA esta protegido con una contraseña, hay alguna forma de quitar esa clave??. Gracias.
Hola quisiera saber si encontraste la forma de quitar la contraseña a el archivo EUROTOOL.XLA, te agradeceré mucho la ayuda, te dejo mi correo carmen.martinez.gil en gmail.com mil gracias
El mismo problema de ricardo…contraseña en el eurotool…hay forma de quitarla.?
Gracias, buen truco
bueno gracias por el aporte pero esto no funciona por que hasta el maro esta bloqueada por tanto no se puede pegar el seudocodigo escrito como abria que desproger este tipo de archivo
!!Funciona!!!
Buenas tardes este si funciona a la PEFECCION.
se los agradezco
MIL GRACIASSS FUNCIONO!!!!! AUNQUE TENGO Q HACERLO EN CADA HOJA PQ ME APARECE Q TIENE DIFERENTES CLAVES, GRACIASSSSSSSSS
demasiado util muchas gracias eres un genio
tengo un problema cuando ejecuto el codigo para desbloquear, me sale este msj «la biblioteca de objetos no es valida o contiene referencias a definiciones de objetos q no se pueden encontrar» creo q se debe a q mi archivo de exel tiene referencias hacia con otros archivos de exel….
Gracias mi hermano me sacó de un gran problema…
Espectacular!!! La verdad… De 10!!
😉
Muy bueno, tardó menos de 30 segundos en regresarme un password de mas de 20 caracteres, gracias!!!
Muy Util!!!
Gracias
Se demora un poco pero si te quita la contraseña de la hoja, pero yo quiero uno que me quite la contraseña del Libro de Excel. (Desprotejer Libro). favor de ayudarme…
ayuda…. no me aparece nada al precionar alt f8
BUEN DIA
ESCRIBO PARA DIRIGIRME A LA PERSONA QUE ESCIRBIO ESTA EXCELENTE FORMA DE ABRIRLO PUES SI SE PUEDE SOLO TENGO UN INCONVENIENTE CUANDO YA ME DIO LA CLAVE ME ABRE UN DOCUMENTO DE EXCEL PERO SON NADA DE CONTENIDO SALE TODO BLANCO Y CUANDO INTENTO ABRIR EL ARCHIVO CON LA CONTRASEA QUE ME DIO Y YA NO QUIERE . NECESITO QUE POR FAVOR ME AYUDES ME URGE DEMASIADO .
TE DECIA QUE ME DIRIJO A TI LA PERSONA QUE CREO ESTE BLOG QUE NECESITO ME AYUDES PARA ABRIR ESTE ARCHIVO PUES ME SUPER URGE Y TE PROPONGO LO SIGUIENTE AYUDAME A ABRIRLO TU QUE YA SABES MAS Y TE PAGO LO QUE QUIERAS EL PRECIO NO IMPORTA YO TE PAGO LA CANTIDAD QUE TU ME PIDAS , SI ME PUEDES DAR TU TELEFONO ESTARIA PERFECTO MI CORREO ES [Editado] POR FAVOR AYUDAME POR EL PRECIO NO HAY PROBLEMA TE PAGO LO QUE ME INDIQUES … ME URGE , SOLO ME MANDAS LA CUNTA Y TE DEPOSITO O YO MISMO TE VOYA DEJAR EL DINERO EN TUS MANOS .
Hola la verdad muchas gracias por el post esta super y ya pude desbloquear el archivo… mil gracias..
saludos
si quieres desbloquear la hoja de exel contactame mi correo es lalo[editado]2@hotmail.com yo tengo el codigo correcto bye
Excelente funciona perfecto, solo cambias las comillas. Me han ayudado mucho. Gracias
Muchisimas gracias por el aporte, me ha ayudado bastante y como ya lo han mencionado varios sólo hay que cambiar las comillas por las del teclado de la PC y listo.
Saludos cordiales.
funciona muy bien mil gracias.
Funcionó a la perfección. Gracias 😉
Viejo funciona a las mil maravillas muchas gracias por el aporte, esta son las personas que necesitamos.
me funciono UNA vez y no me saco AAAAAAAAAAA me saco AABBAAABBBAO O o algo asi pero ahora que trato de hacerlo con otro archivo que esta exactanmente igual no me deja me dice que no es la contraseña y si me saca las once A pero cuando los pongo no me lo acepta algunos cambios que note son primero en el area de proteger libro en donde si me lo permitio me decia desproteger libro y donde no me lo permite esta al reves dice proteger libro hice algo mal o que ondas
Me pasa lo mismo que a CONRRAS me salen AAAAAAAAAAA pero no me desbloquea la hoja de calculo. Saben que mas se puede hacer…????
que honda espero que esten bien bueno mi problema es que pragrama excell me pide una contraseña de 25 carecteres y no la se es que sugun me la restauraron de fabricacion me el tipo que nada mas las actualisara y de repente ya no responde el programa y no se que es
hola estoy usando el truco para desbloquear excel pero no se aque se refiere con boton de crear no se cual es es boton
Excelente truco, funciona a la perfeccion…………
gracias por la aportacion
Mil gracias, me funcionó de maravilla, excelente aportación.
Saludos!!!!
Genial.
Ha funcionado perfecto pero hay que cambiar las «comillas» inclinadas por las verticales en la linea 21.
si me funciono. men. gracias…. la verdad que fue facil.. gracias..
porfa alguien que me ayude a abrir un archivo que tengo de exel gracias
Amigo tremenda ayuda, funciona de manera excelente… Te Felicito desde Venezuela por el aporte…
chevere brother, tambien funciona en execel 2010 solo chekear que no se repita las instrucciones sub y ensub. de 10
Excelente, me funcionó a la primera y me ayudó muy bien.
Gracias
Infinitas gracias, tenía un archivo en Excel 2007, con una contraseña que no recordaba ya estaba más que preocupado. Al que creó el código mis felicitaciones.
Que tal,
Al darle Alt+F8 no tiene habilitada la opción de crear macros, si intento correr alguna de las macros me dice que debo reabrir el archivo y habilitar las macros, este archivo esta protegido casi todas las opciones estan deshabilitadas, que se puede hacer?
saludos..
Encontré un programa que se llama passware, te recupera passwords de muchos programas, también me dió las contraseñas de todas las sheets que tenía un archivo de excel.
Les anexo la liga.. viene con el serial..
http://cracksguru.com/data/Passware_Password_Recovery_Kit_Enterprise_v7.0_crack_by_Passware-bee27673ff.html
Buenas amigo, muy buen aporte a mi me resulto hay que cambiar las comillas y listo, saludos Rafael Niño desde maracaibo venezuela el mejor estado del pais :p
Muchas gracias me sirvio al pelo…
Un berraco, la verdad sabe mucho.
Excelente, muchas gracias por su colaboración. Funcionó a la perfección, para los que tengan problemas con el error de sintaxis, verifiquen las comillas («) que al copiar y pegar se colocan en cursivas y por eso genera ese error, haganlo y veran como salen del inconveniente. Saludos
Es perfecto, funsiona perfectamente.
Muchas gracias maestro, me funciono y no sabes que paro me hiciste, muchas gracias. de México.
Excelente!!
Funcionó perfectamente
Gracias
ERES UN CRACK
BUENISSIMO TRUCO AMIGOS MUCHAS GRACIAS
hola muchas gracias si me sirvió de mucho el código funciona perfectamente en exel 2007 solo hace falta cambiarle las comillas por las de nuestro teclado donde dice
“La contraseña es: ”
solo las cambiaríamos de la siguiente manera:
«La contraseña es » se dan cuenta la gran diferencia en las otras comillas solo cambien eso y verán los resultados
gracias chico por tu ayuda
gracias me sirvio de mucha ayuda solo se trata de cambiar las comilas por las del teclado
buen truco…
gracias si funciona solo se trata de cambiar las comillas por las del teclado en la parte donde dice :
“La contraseña es: ”
por «La contraseña es :»
Amigos, necesito una aplicación o soft para abrir archivo excel 2007 con contraseña
Gracias
ME PASA LO MISMO QUE A CONRRAS OK TODO MUY BIEN PERO NO ME SIGUE DICIENDO Q LA CONTRASEÑA ES INCORRECTA Y LA VERDAD NO ENTIENDO LA DIFERENCIA DE LAS COMILLAS COMO LE HAGO
Hola a todos!
Me sirvió PERFECTO en EXCEL 2010, comprobadísimo,
ya estaré más seguido por aquí robando conocimentos…
Saludos!
Excelenta man funciono sin inconveniente
Esta de maravilla!
Bloquie una hoja donde tenia una grafica complicada de hacer y me dio tanta flojera jajaja… y dije… ‘mejor busco una opcion para desbloquiar una hoja de excel’ y como todo hay en internet psss… WALAAA
GRACIAS POR EL APORTE!
SALUDOS!
Primero me dio un error de sintaxis. Pero luego:
Solo tuve que borrar las comillas y volverlas a escribir comillas dobles y ok
Excelente, Perfecto. Mil gracias.
hola tume puedes ayudar? tengo un libro en excel con 8 hojas.. de las cuales ya no necesito como 5 pero no se dejan eliminar, la opción con el click derecho no sale disponible, el libro no esta protegido ni nada por el estilo y no se q hacer :S
Pd: las hojas nuevas q creo en el mismo libro tampoco se dejan eliminar
muchas graciasss si me puedes ayudar!
Gracias ustedes son unos tesos
excelente fue de gran ayuda es el primer blog que comento ya que se lo merece
Muy bueno, muchas gracias
Genial hermano… desde Chile. Se agradece.
oye y para un archivo de word 2008 es que utilizo una mac jejeje y busque barias herramientas y no acepta la extensión .docx lo ocupo es del trabajo y no creo poder hacerlo de nuevo ya que tiene algunos datos e imagenes de firmas de personas
PUES A MI NO ME FUNCIONÓ Y ESO QUE LLEGÓ HASTA EL CUADRO DONDE DICE AAAAAAAAAA
EN VERDAD SIRVE!!!!!!!!! SIRVEEEEEEEEEEEEEE
EL UNICO PROBLEMA SON LAS COMILLAS, HACE AÑOS LEI TU BLOG PERO NUNCA LEI LOS COMENTARIOS !!! SOBRE EL ERROR Y RECIEN EN EL 2011 los lei y el problema son las comillas!!!!!!
GRACIAS!!!
Xevere tu aporte, pero el error esta en los parentesis de la funcion msgbox, aca la solucion:
Sub break()
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 (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
AL PONER EL NOMBRE DELA MACRO NO ME DA LA OPCION CREAR POR QUE???
Bakan .. resulta ..!!! muchas gracias
BHDC
Muchas gracias, muy bueno, solo no funciona en excel 2010
Tambien funciona en excel2010, buenisimo o.O
BRUTALLLLLLLLLLLL, genial gracias
A MI NO ME FUNCIONA PORQUE NO ME DEJA ABRIR EL ARCHIVO AL ABRIRLO ME PIDE LA CONTRASEÑA Y COMO NO LA SE NO ME DEJA EN TRAR EN ALT+F8 UNA AYUDA PORFAVORRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
Gracias funciona muy bien en excel 2010
si funciona el error que te marca en rojo es por las comillas
Luego de sustituir las comillas Funciono Perfectamente en 2010
extraordinario parcero
Ponny eres la neta del planeta, ya lo logre gracias a ti.
Muchas gracias, vaya que funciono y un gran aporte, había olvidado la contraseña de un algoritmo y me evito rehacer todo. =)
ooooohhhhh!!!! muchas gracias me sirvió de mucho!!!!
Muchas gracias, me funcionó perfecto y ni te imaginas el enorme trabajo q me has evitado
FUNCIONA TDO HASTA DOND DICE CONTRASEÑA AAAA PERO SE ABRE UN LIBRO NUEVO NO EL QUE TRATO DE VER……LO QUE NECESITO ES AYUDA PARA KITAR CONTRASEÑA YA QUE LA OLVIDE Y NECESITO VER LA INFO KE TENIA PLIS AYUDA 🙂
GRACIAS ME SIRVIO MUCHO TU AYUDA EXELENTE POST
a mi no me funciono me dice nombre de macro invalido tengo excel 2007 o si quieres me das tu correo y te mando la hoja para que me colabores por favor
Eres un máquina macho!!
Da gusto encontrar cosas así de trabajadas!
es lo maximo gracias
Funcionaaaaa!!
Muchas gracias.
PUES A MI NO ME HA SERVIDO YA NO SE QUE HACER
recién lo prueb y me sirvió.
Me dio contraseña AAAA…………. pero no me iso falta ya que tengo el archivo desbloqueado ahora. 1º lo guardé en Excel 2007 como Libro habilitado para macro. despues lo cerré y lo abrí nuevamente. Cree la macro en una hoja nueva y listo.
Muchas gracias por el aporte.
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 «La contraseña 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
EXCELENTE PARA ABRIR HOJAS LO UTILICE EN EXCEL 2010 ME DABA ERROR Y LO COLOQUE DE ESTE MODO. AUNQUE NO ME APARECIO EL MENSAJE DE LA CLAVE ENTRE POR DESPROTEJER HOJA Y COLOQUE AAAA EN MAYUSCULA Y ABRIO LA HOJA.
GRACIAS AL QUE ESCRIBIO ESTE MACRO.
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
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Excelente!!!!
Me sirvio al toque no mas… bueno tambien me salio el mensaje de error de sintaxis, pero simplemente le borre todo el mensaje y listo… me desprotegio todo el excel… Muy bueno!
Me funciono muy bien el codigo de «GOMEZNCJ» en Microsoft Office 2010. El que postearón en el blog no sirve da error. Pero corrigiendolo funciona muy bien. Gracias por el codigo. De todos modos te comento que llegue a tu blog por Google para que mires que bien te tiene categorizado. Saludos desde Guatemala
Exelente solución, me dió error de sintaxis pero era porque al copiar la subrutina, no se copió correctamente en una de las lineas, el caracter de fin de linea n «_», lo puse manualmente y listo. Gracias por la solución
hola
como hago para desbloquear un archivo si solo me aparece el cuadro donde me pide la contraseña del archivo, no me deja ver nada mas, es decir, no puedo hacer lo de la macro para desbloquear porque no me lo deja abrir.
Gracias, espero me puedas ayudar
Excel…ente!!! Funciona!!!!
Buen aporte! Me sirvió…
Muy buen aporte, me sirvió, excelente
Y lo usé en excel 2010, gracias bro
Lo aplique, tal cual esta dicho y comentado Y SI FUNCIONÓ!
Muchas Gracias, a quien participó del conocimiento.
Funciona «Alt+F8″…»cambiar comillas» y recuerde guardar libro habilitado para macros.
Aplicado en Office 2007 con windows 7
No sirve presino Alt + f8 y me vuelve a pedir contrasena…..de todas maneras gracias
Saludos a todos los compañeros, quiero agradecer la ayuda prestada. Ya logré desproteger la hoja, me fue de gran ayuda. Muchas gracias.
Funciono!!!! que emoción, muchas gracias!!!! al inicio no funcionaba pero coloque de nuevo las comillas y listo 🙂
Holas Señores… funciono a la perfección… gracias….
GRACIAS CUMPA SIRVE CALETA………………
Gracias Mil!
Muchas gracias amigo funciono, y cuando marca el error en la sintaxis se puede borrar la parte en amarillo que te marca que esta mal y lo corres y queda listo automaticamente, no te da contraseña pero desbloquea todas kas celdas automaticamente…
Excelente. Le modifiqué las comillas y corrió.
excelente, gracias al que publicó + 10
Calidad, gracias, me sirvio su asesoria profesional, pude desbloquear mi archivo de exel. exitos.
Pues me servio en todos los archivos que me permitía entrar a el mismo pero no modificarlo, pero tengo uno en especial que antes de abrirse me pide la contraseña en una ventana secundaria, en este si de plano no eh podido hacer nada. Alguna sugerencia.
Hola, me costó trabajo, pero finalmente lo consegui, es cuestion de paciencia, pero si funciona.
Gracias
Aqui les dejo un código VBA distinto y más corto que hace lo mismo.
Click con el ratón en el nombre de la hoja que se quiere desproteger.
Click en – Ver Código -.
Copiar y pegar el siguiente código macro en la ventana activa.
Sub decod()
On Error Resume Next: c = Space(10)
For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop
For j = 32 To 126: Unprotect c & a & Chr(j)
If Not ProtectContents Then MsgBox "Clave » " & c & a & Chr(j): End
Next: Do While a = 1: a = Mid(c, p, 1): p = p – 1: Loop: Next
End Sub
Regresar a la hoja Excel.
Click en – Herramientas – Macro – Macros – Ejecutar -.
Y ¡¡Voila!! aparece la clave alternativa y la hoja desprotegida.
Probado en Excel 2003.
Es posible que estas instrucciones puedan variar en otras versiones.
En todo caso seguir con las originales.
Espero que les sea útil.
Saludos.
Excelente aporte. muchas gracias
Felicitaciones, si funciona. Es la primera vez que utilizo un macro. Tu explicación es precisa. El detalle de las comillas es un tic.
Perfecto, muchas gracias. Me ha salvado de un problemón!!!!
gracias por el tip, si me sirvio!!!!! me han salvado!!!!
Excelente truco, me saco de un apuro tremendo…gracias por ese aporte…saludos
EXCELENTE brother EXCELENTE!!!
Perfecto, mil gracias
hola cuando me pone la contraseña es….me pone un monton de cosas raras pero ninguna clave de 25 caracteers…como descifro la clave correcta…?gracias
Excelente, funciona perfecto, gracias por la mano porque me salvaste de una carga importantisima de trabajo. En 2003 me funciono perfecto pero en 2007 tuve problemas de sintaxis en la linea donde se define MsgBox……
GRACIAS CRACK
funciona a la perfeccion,
Excelente, me sirvio muchisimo!!!! Gracias por el aporte.
Gracias, aparentemente me funciono
funciono a la perfeccion ps.. gracias
Exelente, solo sustitui las comillas como mencionaron al 100, gracias
Me sale la pantalla de introducir contraseña y no puedo colocar alt f11
muchas gracias excelente!!!!!
Gracias por tu ayuda, si me funcionó, saludos
NO ME FUNCIONA YA CAMBIE LAS COMILLAS EL PROBLEMA ES QUE CUANDO QUIERO ABRIR LA HOJA DE EXCEL 2007 ME APARECE INTRODUCIR CONTRASEÑA Y NO ME DEJA PONER ALT +F8 QUE HAGOOO?
AYUDA POR FAVORRRRRR
me funciono gracias…
gran aporte amigo funciona al 100
ME DA UN ERROR AL INGRESAR EL CODIGO
DICE QUE LO PROEVE CON MAYUSCULA
PERO NO ME ACTIVA LA TECLA DE
BLOQUEO DE MAYUSCULAS
PERO SOLO CUANDO ESTOY EN EXCEL DEL QUE NO ME DEJA INGRESAR LA CONTRASENA PORQUE TAMBIEN ME LO PIDE EN MAYUSCULA
PERO Y USO OTRO LIBRO DE EXCEL SI ME DEJA BLOQUEAR LA BARRA DE MAYUSCULAS
gracias amigo del Darkchicles the blog me funciono a la perfección saludos desde Atocha Potosí Bolivia
MUCHAS GRACIAS ME SIRVIÓ. ESTABA EN EL TRABAJO Y OLVIDE POR COMPLETO LA CONTRASEÑA DE UNA PLANILLA Y ERA URGENTE SABERLA. SOLO CAMBIÉ LAS COMILLAS Y FUNCIONA PERFECT. XD
NECESITO AYUDA POR QUE SI ME DA AAAAAAAAAAA (11 veces)PERO NO ME DEJA ABRIR EL ARCHIOVO QUE HAGO???? ESTOY AL BORDE DE LA LOCURA
quiero saber como se puede abrir un archivo con clave porque trato de abrir el archivo y sale una ventana que dice introdusca la clave
SI FUNCIONA EL ALT 34 SON LAS COMILLAS EN ASCII SOLO ESO ES LO QUE HAY QUE CAMBIAR POR SI ACASO TENGO WINDOWS 7 PROFESSIONAL 64X
no funciona con el archivo que tengo con la extensión .xlsm si inicia pendiendo contraseña al iniciar el archivo
tal vez les ayude este todavía no he probado http://www.freewordexcelpassword.com/
wOOOO MUCHAS GRACIAS SI FUNCIONO Y SI MANDA ERROR HAY QUE CAMBIAR LAS COMILLAS Y LISTO EN HORA BUENA
CUANDO ABRO EL EXCEL ME PIDE LA CLAVE Y NO PUEDO CON ALT F8 HACER NADA.
Excelente, luego de arreglar las comillas funciona de maravilla. Se me había olvidado la contraseña de un archivo importante del trabajo.
Saludos amigo he realizado todo lo que ud. han sugerido pero no abre la macro queda como patinando y dice excel no responde…excel 2010….si me pueden ayudar gracias
Si funciona ¡¡¡Gracias man
para excel 2007,
dentro de visual basic-Ejecutar-
Sub menu EJECUTAR sub/user form F5
alguien podria ser mas claro y decir bien cual son las comillas q hay q cambiar? por que me sale error de sintaxis y no tengo idea cual son las comillas q tengo q cambiar….ayuda por favor
SOLO ESTE TEXTO REEMPLAZALO,
MsgBox «La contraseña 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)
PRUEBA CON ESTO SOLO CAMBIA ESTAS LINEAS DE CODIGO
If ActiveSheet.ProtectContents = False Then
MsgBox «La contraseña 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
gracias totales!!
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 «La contraseña 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
SOLO CAMBIAR LAS COMILLAS
Super!! hoy 16 Sep 2014 lo probe y funciono correctamente
SIN NINGUNA FALLA, (Claro hice lo delas comillas xq me marcaba peor salio!!)
GRCIAS!! INFINITAS!! 🙂
Desde Coahuila!! Mexico
SALUDOS!!
exelente!!! gracias si funciono para una hoja 8 la mas importante) pero lo quise relaizar con otra que tengo tambien bloqueada y ya no funciono porque sera?
Buenos días si tengo un archivo excel 2007 pero le pusieron clave de apertura, he probado con varios programas para recuperar la clave y no funcionan no son compatibles después de 2003, alguien sabe como podría romper la clave o almenos poder ver mi información