Denunciar

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

Haz una pregunta ali - Última respuesta: 18 oct 2017 a las 22:31 por Lemonrob
Hola,
por favor alguien me puede ayudar a abrir un documento de excel, le puse contraseña y la he olvidado, como puedo hacer?
Vota
+384
plus moins
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!!
¿Te sirvió esta respuesta?  
va- 24 may 2017 a las 15:56
Me funciono muy bien...!! me salvaste...!!
Responder
Luis- 30 jun 2017 a las 18:54
Un detalle, en el primer paso para guardar el modulo es primero exportar y guardar y, para cargarlo al archivo con contraseña es importar... a los que no les funciona así funcionará... Saludos y gracias
Responder
Sergio Q.- 5 ago 2017 a las 14:58
Muchas gracias me sacó de un apuro, repito, gracias
Responder
miguel- 13 sep 2017 a las 16:33
Muchas gracias sirvio la respuesta, pero con el exportar y despues importar.
Responder
Lemonrob- 18 oct 2017 a las 22:31
Maestro muchas gracias
Responder
Vota
+142
plus moins
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
.
Su- 26 ene 2013 a las 16:40
Resultooooo gracias
Yupendi- 22 feb 2013 a las 23:10
Escelente Pituco :) gracias muy buena solución
PATGN- 11 abr 2013 a las 14:12
Te Pasaste!!!!
GEGOGO- 22 abr 2013 a las 05:08
gracias genio
Jazita9- 7 may 2013 a las 01:35
simplemente wooooooooooooooooooow GRACIAS!
Vota
+16
plus moins
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 2Publicaciones 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
mamia- 21 oct 2012 a las 16:17
en esa ocacion exportas (para guardar) despues de eso importas, pero a mi no me funciono :/
ROSSCID 2Publicaciones 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.
Sergio- 6 feb 2013 a las 21:38
En la primera parte en vez de importar dale exportar y la guardas, excelente a mi me ayudo a quitar una contraseña, gracias...
Sujeto- 3 oct 2013 a las 00:00
No se dan cuenta q es una rutina de colegio, la contraseña la pone él mismo
Vota
+10
plus moins
como recuperar un archi
Vota
+10
plus moins
No me deja abrir el archivo excel para instalar la macro
Vota
+6
plus moins
no vale, la contraseña AAAA... no vale para nada
muy bien- 4 dic 2012 a las 00:18
hombre que buen dato. funciona excelente

muchas gracias
CRASHO- 27 ene 2013 a las 17:48
Excelente amigo eliminó mi contraseña
Jose- 13 jun 2013 a las 02:02
esto sirve para la contraseña de hojas, pero alguien tiene algun dato para desbloquear archivos o conseguir la contraseña??
silverhd- 18 jun 2013 a las 05:55
Excelente !!!!!!!!!! gracias por compartir esta información
Vota
+5
plus moins
Exelente, eso estuvo barbaro..... de 1000000000

reverencias para ti.
Vota
+4
plus moins
funciona igual para word o power point??
Vota
+3
plus moins
https://www.youtube.com/watch?v=AquNP7CAJxU cheken est q m encontre... funciona perfectamente. soluciono mi problema....
Vota
+3
plus moins
Uno mas, funciona al 100.

Muchas gracias.
Vota
+2
plus moins
busca un programa que se llama recuva es para recuperar y reparar archivos es muy bueno
Vota
+2
plus moins
Gracias me ahorrate le trabajo !
Vota
+1
plus moins
Definitivamente mil garcias ¡¡¡¡¡ ME SIRVIO TOTAL CON LA CLAVE DE EXPORTAR
Vota
+1
plus moins
Muchas gracias, realmente funciona
Vota
+1
plus moins
Muchas Gracias, ha funcionado perfecto, lo guardo en el escritorio para otra vez
Tevo Calderon- 29 jul 2013 a las 17:40
Wena Wena cumpita funciona exelente....GRACIAS
acerdas- 3 ago 2013 a las 04:29
solo sirve para una hoja protejida no para un libro
Marliu- 12 ago 2013 a las 20:57
buenisimo!!! ud. es un duro!
JC-COL- 13 ago 2013 a las 05:47
Buenísima solución, eres un duro, me salvaste. MIL GRACIAS!!!!
Leugim- 25 sep 2013 a las 19:11
Me sirvio perfectamente. Gracias
Vota
+1
plus moins
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
Pokemon- 17 sep 2013 a las 21:36
Excelente, muchas gracias

Los miembros obtienen más respuestas que los usuarios anónimos.

Ser miembro te permite llevar un seguimiento detallado de tus consultas.

Ser miembro te permite disfrutar de opciones adicionales.

¿Todavía no eres usuario?

¡Inscríbete, es gratis y toma menos de un minuto!