Olvide la contraseña en documento excel [Resuelto/Cerrado]

ali - 28 may 2009 a las 16:31 - Última respuesta:  cobra
- 28 abr 2018 a las 19:57
Hola,
por favor alguien me puede ayudar a abrir un documento de excel, le puse contraseña y la he olvidado, como puedo hacer?
Ver más 

297 respuestas

+405
Vota
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!!
gracias a mi si me sirvió y me salvaste de hacer un archivo.
muchas gracia amigo, me ha servido mucho
excelente
extraordinario...muchas gracias
+156
Vota
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
.
Resultooooo gracias
Escelente Pituco :) gracias muy buena solución
Te Pasaste!!!!
gracias genio
simplemente wooooooooooooooooooow GRACIAS!
+16
Vota
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
ROSSCID 2 Publicaciones jueves, 18 de octubre de 2012Fecha de inscripción lunes, 22 de octubre de 2012 Última intervención - 18 oct 2012 a las 23:36
HOLA E INTENTADO LO DEL MODULO 1 PERO CUANDO ME VOY A I ARCHIVO+IMPORTAR LE DOY UN NOMBRE Y ME DICE QUE NO SE ENCUENTRA EL ARCHIVO ASEGURESE DE HABER DADO EL NOMBRE DE ARCHIVO CORRECTO , ¿QUE HAGO ? AYUDA POR FAVOR
en esa ocacion exportas (para guardar) despues de eso importas, pero a mi no me funciono :/
ROSSCID 2 Publicaciones jueves, 18 de octubre de 2012Fecha de inscripción lunes, 22 de octubre de 2012 Última intervención - 22 oct 2012 a las 18:58
NO ME FUNCIONO YA EXPORTE EL NOMBRE Y LO EJECUTE PERO ME SIGUE PIDIENDO LA CONTRASEÑA PARA ABRIR MI ARCHIVO LE PUSE LAS AAAAAAAAAA PERO NO ME ABRIO.
En la primera parte en vez de importar dale exportar y la guardas, excelente a mi me ayudo a quitar una contraseña, gracias...
No se dan cuenta q es una rutina de colegio, la contraseña la pone él mismo
+12
Vota
No me deja abrir el archivo excel para instalar la macro
+10
Vota
como recuperar un archi
+6
Vota
no vale, la contraseña AAAA... no vale para nada
hombre que buen dato. funciona excelente

muchas gracias
Excelente amigo eliminó mi contraseña
esto sirve para la contraseña de hojas, pero alguien tiene algun dato para desbloquear archivos o conseguir la contraseña??
Excelente !!!!!!!!!! gracias por compartir esta información
+5
Vota
Exelente, eso estuvo barbaro..... de 1000000000

reverencias para ti.
+4
Vota
funciona igual para word o power point??
gato_2n 1 Publicaciones viernes, 23 de agosto de 2013Fecha de inscripción viernes, 23 de agosto de 2013 Última intervención - 23 ago 2013 a las 21:28
+3
Vota
Uno mas, funciona al 100.

Muchas gracias.
+2
Vota
busca un programa que se llama recuva es para recuperar y reparar archivos es muy bueno
+2
Vota
https://www.youtube.com/watch?v=AquNP7CAJxU cheken est q m encontre... funciona perfectamente. soluciono mi problema....
CHAMACO PRECOZ - 30 ago 2013 a las 18:08
+2
Vota
Gracias me ahorrate le trabajo !
+1
Vota
Definitivamente mil garcias ¡¡¡¡¡ ME SIRVIO TOTAL CON LA CLAVE DE EXPORTAR
franferparraga - 21 mar 2013 a las 17:32
+1
Vota
Muchas gracias, realmente funciona
+1
Vota
Muchas Gracias, ha funcionado perfecto, lo guardo en el escritorio para otra vez
Wena Wena cumpita funciona exelente....GRACIAS
solo sirve para una hoja protejida no para un libro
buenisimo!!! ud. es un duro!
Buenísima solución, eres un duro, me salvaste. MIL GRACIAS!!!!
Me sirvio perfectamente. Gracias
+1
Vota
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