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.

7 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