Eliminar Contraseñas a Libros y Hojas de Excel, Quitar Contraseñas Archivo de Excel

Hola buenas hoy les compartiré un artículo que espero sea de gran beneficio para ustedes, surgió la necesidad de quitarle la contraseña a un archivo que por alguna razón al creador del mismo se le olvido, primero que todo les diré que esto es posible en Excel 2007 y Excel 2010 que es donde lo probé y donde se tenía la necesidad de quitar la contraseña, pues bien para comenzar debemos de abrir el editor de visual basic, para aquellos que han programado aplicaciones será sencillo para los que no se preocupen que acá les mostrare a detalle los pasos.
Para abrir el editor de visual Basic lo que debemos de hacer es abrir el programa Excel luego le damos alt+f11 o nos vamos a la pestaña programador y luego editor de visual basic.

 

Ok perfecto aún no hemos tocado el archivo con la contraseña porque primero vamos a hacer una pequeña macro con el código necesario para “extraer” la contraseña. Al presionar clic se abre el editor de visual basic, ahora agregamos un nuevo módulo a como se muestra a continuación.

Al agregar un nuevo módulo entonces pegamos el siguiente código.

Attribute VB_Name = "Módulo1"

Sub gm()

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 "¡Geymer Morales 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 

Al pegar el código quedaría algo así.

Perfecto luego le damos al menú Archivo, Exportar archivo… y le damos un nombre en mi caso lo nombre QuitaContrasena a como se muestra a continuación.

 Perfecto, acá ya creamos  la pequeña macro que nos ayudara a quitar la contraseña del archivo que necesitamos, en mi caso la guarde en el escritorio. Ahora si nos vamos al archivo que necesitamos quitarle el password lo abrimos y volvemos a abrir el editor de visual basic, luego nos vamos a Archivo, Importar archivo y buscamos el archivo que creamos anteriormente.

Esto agregara al archivo con contraseña el nuevo módulo que creamos, una vez realizado este paso cerramos el editor de visual basic y ya en la hoja de excel presionamos alt+f8, o nos vamos a la pestaña programador y clic en Macros.

 Esto nos abrita una ventana en donde vamos a ejecutar esa pequeña macro que creamos.

Le damos ejecutar y listo la contraseña que necesitas aparecerá en un mensaje.

Espero les sea de utilidad, hasta la próxima.