Cómo hacer una macro para desproteger un libro de Excel

Una situación frecuente a la que te habrás enfrentado es recibir un libro de Excel que se encuentra protegido con una contraseña que desconoces y por alguna razón, necesitas hacer algo para desprotegerlo y hacer cambios estructurales. Siempre es un incordio encontrarse un archivo Excel protegido con contraseña, pero no es nada complicado desbloquearlo.

Libro de Excel protegido

La ruta para desbloquear un libro de Excel, es la de acceder al menú Revisar, y después pinchar en Proteger Libro. Al pinchar, aparecerá el siguiente cuadro:

Abrir editor de Visual Basic

Para desbloquear o desproteger un libro de Excel con una macro, no hay que ser un experto en Visual Basic. Lo más rápido es abrir el editor de VBA y copiar el siguiente código:

Sub DesprotegerLibroExcel()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _

Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveWorkbook.ProtectStructure = False And ActiveWorkbook.ProtectWindows = False Then

msgbox "El libro se encuentra ahora desprotegido", vbInformation + vbOKOnly, "Éxito"

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

Ahora solo habrá que ejecutar la macro creada y habrás conseguido eliminar la contraseña del libro de Excel, obteniendo el siguiente mensaje:

Por último, pincha en aceptar y el libro estará totalmente desprotegido. Ahora sí, podrás hacer los cambios que necesites, sin restricción alguna.

Advertencia

Esta macro sólo sirve para desproteger un libro de Excel, igual lo que necesitas es desproteger un hoja de Excel.