Olvidé la contraseña de documento Excel [Resuelto/Cerrado]

Denunciar
-
 Hector -
Hola,
por favor alguien me puede ayudar a abrir un documento de Exce? Le puse contraseña y la he olvidado, como puedo hacer?
Configuración: Windows XP Internet Explorer 6.0

16 respuestas

JD 29 jun 2010, 02:43
1ABRIR EXEL EJM: Libro1
PRECIONE ALT+F11 = TE ABRE LA VENTANA DE VISUAL
CLICK EN INSERTAR+MODULO=SE CREARA UNA CARPETA QUE CONTIENE Modulo1
SELECCIONA EL MODULO1
LUEGO COPIA ESTE CODIGO QUE ESTA ABAJO

Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!" & 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

PEGAR EN EL MODULO1
LUEGO VE EN ARCHIVO+IMPORTAR, PONERLE UN NOMBRE Y GUARDAR EJEMPLO EN ESCRITORIO....
LO QUE ACABAMOS DE CREAR SE LLAMA MODULO

LUEGO ABRI TU HOJA PROTEGIDA+ PRSS ALR+F11 +IMPORTAR+SELECCIONAR TU MODULO QUE CREASTE+CERRAR PARA QUEDAR CON LA OJA PROTEGINDA+PRESS AL+F8 SELECCIONAR jd +EJECUTAR Y LISTO!!

JD TE DA TU CONTRASEÑA!! JAJA


ESPERO QUE SIRVA!!
556
Gracias

¡Estamos felices de haberte ayudado! ¿Te hemos sido de ayuda? ¡Déjanos un comentario! Evalúa a CCM

CCM 39228 usuarios nos han dicho gracias este mes

Excelente post!!!
Muy didactico!
Gracias

Pequeño comentario: cuando pones en la explicacion, "PEGAR EN EL MODULO1
LUEGO VE EN ARCHIVO+IMPORTAR, PONERLE UN NOMBRE Y GUARDAR EJEMPLO EN ESCRITORIO.... " debería ser "...LUEGO VE EN ARCHIVO+EXPORTAR, ..." .
Pequeño detalle que no afecta el contenido.

Saludos
JD eres lo máximo me salvasteeeee!!! Fue de la única manera que lo logré después de muchas horas de buscar.... Graicassss!!! Sólo que en lugar de importar en la segunda vez que lo mencionas debe ser "exportar"...
Saludos!!
Muchas Gracias me sirvio un monton eres lo maximo.
hola ....probe el macro y me dio errror 1004 error en tiempo de ejecucion es exel 2007 no se que paso
y si no deja crear el modulo??? ;_;
Click con el ratón en el nombre de la hoja que se quiere desproteger.
Click con el ratón en Ver código.
Copiar y pegar el siguiente código macro VBA
.

Public 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 que se desea desproteger.
Ir a Herramientas, Macro, Macros, Ejecutar.
Y ¡¡voila!! aparece la clave alternativa y la hoja desprotegida
.
MUCHAS GRACIAS JD realmente me ahorraste horas de recrear una vieja planilla que no use en mucho y tenia que actualizar.
GRACIAS DE NUEVO POR TAL APORTE
JD... te pasaste viejo... tremendo intelecto!!!
Gracias.
JD... impresionante... mis trabajos, mis macros, mis... mis... buáaaaaaa!!!!
jejeje, gracias loco, me salvaste... pero... estoy contento por haber recuperado mi trabajo, pero triste en saber que excel no es seguro... mmm, si bien que si yo le protejo al libro, quizás nadie pueda romper la seña..!!!????
no puedo desbloquear
JD espectacular, me salvaste men me ahorraste mucho trabajo super excelente el aporte
Password Eliminator .XLS

¿Has pérdido tu contraseña de tus Libros y Hojas de Excel?. No te preocupes
más, puedes remover las contraseñas con este grandioso programa.

Password Eliminator .XLS es un programa para desproteger Libros y Hojas de
Microsoft Excel 5.0/7.0/97/2000/2002-XP/2003. protegidas por contraseña.

Sólo debes agregar el archivo *.xls al programa, y pulsar el botón
"Desproteger Archivo". Así de Simple.
En sintesis, es una herramienta que puede sacarte de apuros en más de una
ocasión.

La versión actual de Password Eliminator .XLS funciona bajo Windows 95, 98,
Me, 2000, NT, XP y Vista.
El periodo de prueba es infinito

Podrás ver un mensaje de Garantía de Desprotección del Libro y sus Hojas
mientras el programa no este registrado. La Contraseña será totalmente
removida una vez que adquieras el programa.

http://www.xaviware.com/pwdxls_es.aspx
Aquí podemos ayudarte:

http://nopasswords.viviti.com/

Suerte!
hola gracias
Gracias, funciona correctamente....
wena compare funciona bakan
No me deja abrir el archivo excel para instalar la macro
como recuperar un archi
Exelente, eso estuvo barbaro..... de 1000000000

reverencias para ti.
no vale, la contraseña AAAA... no vale para nada
pirataecuador
Publicaciones
2
Fecha de inscripción
miércoles, 13 de junio de 2012
Estatus
Miembro
Última intervención
miércoles, 13 de junio de 2012

1. ABRIR EXCEL,
2 ALT + F11
3. EN LA PAGINA DE VISUAL BASIC IR A INSERTAR
4. SELECCIONAR CREAR MODULO
5 PEGAR EL CODIGO SIGUIENTE

Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!" & 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. VOLVER A LA PAGINA DE EXCEL
7. PRESIONAR ALT+F8
cuando se desbloque lo puedes grabar como Y LISTO
Maestro, eres el mejor

Saludos desde México
Excelente amigo, muchas gracias, saludos
funciona igual para word o power point??
Publicaciones
1
Fecha de inscripción
viernes, 23 de agosto de 2013
Estatus
Miembro
Última intervención
viernes, 23 de agosto de 2013

Uno mas, funciona al 100.

Muchas gracias.
busca un programa que se llama recuva es para recuperar y reparar archivos es muy bueno
https://www.youtube.com/watch?v=AquNP7CAJxU cheken est q m encontre... funciona perfectamente. soluciono mi problema....

Muchas gracias, realmente funciona
Muchas Gracias, ha funcionado perfecto, lo guardo en el escritorio para otra vez
barto1973
Publicaciones
1
Fecha de inscripción
martes, 28 de mayo de 2013
Estatus
Miembro
Última intervención
martes, 28 de mayo de 2013

gracias me sirvio mucho esta excelente
perfecto!! solo que al comienzo toca exportar para después importar !! gracias man
alguien sabe como conseguir la contraseña para Archivos, este procedimiento es para Hojas???
La cago super weno
Qué tal fumada pero gracias, sirve!

Gracias me ahorrate le trabajo !
muchachos ninguno de sus código funciona no jala pues algo e descubierto la incrinpcion esta echo en HAS1 Lo que he echo es abrir el archivo con 7ZIP encontre el siguiente archivo (EncryptionInfo) que es un archivo xml

acontinuacion el archivo abierto



<keyEncryptor uri="http://schemas.microsoft.com/office/2006/keyEncryptor/password">
<p:encryptedKey
spinCount="100000"
saltSize="16"
blockSize="16"
keyBits="128" hashSize="20"
cipherAlgorithm="AES"
cipherChaining="ChainingModeCBC"
hashAlgorithm="SHA1"
saltValue="OJcjPSzzzYHOCOXuy+R6gw=="
encryptedVerifierHashInput="OYqIn066rVsfwr3Uki5nVA=="
encryptedVerifierHashValue="Y7lyIcOr2vqc+lVE7QpBKgzCGJjnV5reCpdKLdwA+Ik="
encryptedKeyValue="lwHAJRW/tp3WYdufnk7wJw=="/>
</keyEncryptor>
</keyEncryptors></encryption>



<p:encryptedKey
spinCount="100000"
saltSize="16"
blockSize="16"
keyBits="128"
hashSize="20"
cipherAlgorithm="AES"
cipherChaining="ChainingModeCBC"
hashAlgorithm="SHA1"
saltValue="OJcjPSzzzYHOCOXuy+R6gw=="
encryptedVerifierHashInput="OYqIn066rVsfwr3Uki5nVA=="
encryptedVerifierHashValue="Y7lyIcOr2vqc+lVE7QpBKgzCGJjnV5reCpdKLdwA+Ik="
encryptedKeyValue="lwHAJRW/tp3WYdufnk7wJw=="/>


ahora lo que hay que averiguar es como des incriptar los valores incriptados
Excelente, muchas gracias
Definitivamente mil garcias ¡¡¡¡¡ ME SIRVIO TOTAL CON LA CLAVE DE EXPORTAR