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”
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.
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
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.
Estoy ejecutándolo pero mi excel se queda en «no responder» y la página totalmente en blanco. Alguna sugerencia?
Se bloquea la hoja al ejecutarla y toca cerrarla a la fuerza
Los comentarios están cerrados.