+34 911 599 883

+34 911 895 172

Averiguar y quitar la contraseña de un excel xlsx

Para ello abriremos el archivo excel. Este procedimiento hay que repetirlo en cada una de las hojas dentro del archivo que estén protegidas.

Sobre el nombre de la hoja (la pestaña de abajo) pulsamos con el botón derecho y seleccionamos “Ver código”, y en la ventana de código que aparece escribimos lo siguiente:

Sub Descubrir_contraseña()
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 "**M@nolo Dice : )***" & vbCr & "Ya esta desbloqueada tu Hoja y la Contraseña fue:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Y lo ejecutamos (menú ejecutar->ejecutar sub/userform). Con ello nos saldrá la clave con la que proegieron el archivo.

5 comentarios en “Averiguar y quitar la contraseña de un excel xlsx”

  1. Eso es para desproteger hojas con clave pero si el libro tiene una contraseña de apertura ya me contarás cómo vas a ejecutar la macro si no puedes abrirlo.

  2. Realmente no se como lo hagas ya que cuando intentas abrir un documento xlsx te pide la contraseña y si no se la das o no es correcta no te abre nada y entonces mi pregunta es como entro a las hojas internas del documento, saludos

  3. Hola.
    Gracias por el consejo. He podido desproteger hojas de las que había perdido la contraseña. Aunque solamente funcionó con archivos de XL anteriores a 2013. Saludos.

  4. Estoy ejecutándolo pero mi excel se queda en “no responder” y la página totalmente en blanco. Alguna sugerencia?

Los comentarios están cerrados.