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

- - Ú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 

16 respuestas

Mejor respuesta
448
Gracias
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, JD 448

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

CCM ha ayudado a 19002 usuarios este mes

gracias a mi si me sirvió y me salvaste de hacer un archivo.
muchas gracia amigo, me ha servido mucho
excelente
extraordinario...muchas gracias
164
Gracias
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
Gracias
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
Publicaciones
2
Fecha de inscripción
jueves, 18 de octubre de 2012
Última intervención
lunes, 22 de octubre de 2012
-
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
Publicaciones
2
Fecha de inscripción
jueves, 18 de octubre de 2012
Última intervención
lunes, 22 de octubre de 2012
-
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
14
Gracias
No me deja abrir el archivo excel para instalar la macro
11
Gracias
como recuperar un archi
6
Gracias
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
6
Gracias
Exelente, eso estuvo barbaro..... de 1000000000

reverencias para ti.
5
Gracias
funciona igual para word o power point??
3
Gracias
busca un programa que se llama recuva es para recuperar y reparar archivos es muy bueno
Publicaciones
1
Fecha de inscripción
viernes, 23 de agosto de 2013
Última intervención
viernes, 23 de agosto de 2013
3
Gracias
Uno mas, funciona al 100.

Muchas gracias.
2
Gracias
https://www.youtube.com/watch?v=AquNP7CAJxU cheken est q m encontre... funciona perfectamente. soluciono mi problema....
2
Gracias
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
2
Gracias
Gracias me ahorrate le trabajo !
2
Gracias
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
1
Gracias
Definitivamente mil garcias ¡¡¡¡¡ ME SIRVIO TOTAL CON LA CLAVE DE EXPORTAR
1
Gracias
Muchas gracias, realmente funciona