Macro Excel para desproteger una hoja de cálculo

Les ha pasado alguna vez que reciben una hoja de excel protegida y no saben como modificarla? Existe una manera de desbloquearla con una macro sencilla que se basea en el método de fuerza bruta. Solo necesita ingresar al editor de visual basic (Alt + F11) e insertar el siguiente código:

Sub DESPROTEGER()
Dim I As Integer, j As Integer, k As Integer, 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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "Ok"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Sub DESPROTEGER()

Dim I As Integer, j As Integer, k As Integer, 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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "Ok"

Exit Sub

End If

End Sub

Finalmente debe llamar (ejecutar) la macro Unprotect desde la hoja que quiere desproteger y listo.

Atención: Este método es efectivo, sin embargo tiene un inconveniente y es que si bien permite desbloquear la hoja, no permite conocer el código para luego bloquearla en su estado original. Vale la pena saber esto antes de ejecutarlo.

18 thoughts on “Macro Excel para desproteger una hoja de cálculo”

Roberto - November 30, 2017 at 6:02 am

Estimados,

Tengo un excel, el cual incluye programación VBA, tiene ocultas hojas y dispone de contraseña. Necesito poder desproteger el excel y hacer visibles las hojas para poder volver a trabajar.

Me gustaría que me indicaran como se puede hacer, o incluso indiquen una dirección de correo y les envío el archivo.

Saludos y gracias de antemano

Roberto - November 30, 2017 at 6:03 am

Indicar que no lo he comentado, he utilizado esa macro pero el excel se queda bloqueado "Excel(No responde)"

Saludos

Reply
- Alvaro Gil - November 30, 2017 at 6:17 am
  
  Hola Roberto. Hay un método muy sencillo para remover contraseñas de archivos de Excel utilizando un lector de texto (ejemplo notepad) luego de cambiarle la extensión al archivo (de xls o xlsx o xlsm, a .zip).
  Puedes mirar un ejemplo en el siguiente video: https://www.youtube.com/watch?v=xW0YMtjiPxc
  Saludos,
  Alvaro
  
  Reply
alexandr - March 15, 2021 at 4:51 pm

no funciona para extensiones xlsb

Reply

Sergio - April 3, 2018 at 2:52 pm

Roberto, guarda el libro (habilitado para macros), antes de ejecutar la macro para que no se bloquee
Saludos

ivan pinzon - June 15, 2018 at 2:28 pm

no me funciona en excel 2016, que debo hacer, cuando creo el modulo y lo ejecuta me bloquea el excel

jjom - October 10, 2018 at 1:14 pm

¡Gracias muy buena macro!

er - October 13, 2018 at 4:49 pm

ok.

Laura Sol Franco - January 8, 2019 at 12:09 pm

Hola, tengo un archivo excel con un buscador armado vba. Necesito que quede toda la hoja protegida salvo el campo donde ingreso los datos del buscador…Es posible? Lo armo dentro del mismo buscador o en otro procedimiento? Gracias

Denis - March 24, 2020 at 12:43 am

¡Gracias por la útil información! Quiero recomendar un programa de recuperación de contraseña de Excel. Pasprog Excel Password Forgotten https://es.pasprog.com/excel-password-forgotten.php

Ruben Dario Hernandez Vera - September 3, 2020 at 11:51 am

Excelente, sirve los codigos

javier soto - January 9, 2021 at 3:21 pm

A MI ME HA FUNCIONADO DE COÑA.. JEJEJEJEJ

ALEXANDER GRANADOS - February 26, 2021 at 9:57 pm

y si es un archivo xlsb... como puedo quitar la porteccion

JUAN CARLOS - April 27, 2021 at 9:18 am

hola, como en todos los archivos que he probado, tengo el excel 2013 y cuando ejecuto esta variante o macro, se queda colgado. Sin embargo, guardando el archivo en formato 97/2003 si funciona. El problema es que si convierto el archivo a un formato inferior, muchas formulas dejan de funcionar. alguien le ha pasado lo mismo?