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

Denunciar
-
José Bautista
Message postés
207
Date d'inscription
jueves, 1 de septiembre de 2016
Estatus
Administrador
Última intervención
domingo, 5 de abril de 2020
-
Hola,

Por favor, ¿alguien me puede ayudar a abrir un documento Excel?
Le puse una contraseña y la he olvidado, ¿cómo puedo acceder?

Gracias.
Consulta también:

3 respuestas

Message postés
207
Date d'inscription
jueves, 1 de septiembre de 2016
Estatus
Administrador
Última intervención
domingo, 5 de abril de 2020
3.801
Primero abra su fichero Excel.

1. Presiona ALT+F11 y se te abrirá la ventana de VISUAL

2. Haz click en INSERTAR+MODULO
Se creará una nueva carpeta que contendrá el Módulo1

3. Selecciona el Módulo1 y copia dentro el siguiente código:

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

4. Una vez que lo hayas pegado en el Módulo 1
Ve a ARCHIVO+IMPORTAR

5. Ponle un nombre y guárdalo (en el escritorio o en Mis Documentos)

6. Abre tu hoja protegida

7. Presiona ALT + F11 + IMPORTAR

8. Selecciona el módulo recién creado (que tendrá en nombre que le pusiste en el paso 5)

9. CIÉRRALO y te quedarás con la hoja protegida con la contraseña
Para eso presiona ALT + F8

10. Selecciona EJECUTAR y listo.

Te dará tu contraseña.


ESPERO QUE SIRVA!!
577
Gracias

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

CCM 48016 usuarios nos han dicho gracias este mes

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
.
Excelente!!!!!! lo mejor que he encontrado para solucionar el problema!!!
Excelente aporte, gracias eres super!!!!
Excelente solución!
Gracias
gracias genio
simplemente wooooooooooooooooooow GRACIAS!
Miren este vídeo: https://www.youtube.com/watch?v=AquNP7CAJxU
A mí, me soluciono mi problema.