VBA código para desbloquear A bloquear hoja de Excel (2 / 4 paso)

Paso 2: Cortar y pegar el Code Breaker

No deberían tener que cambiar nada, hoja nombre etc.... Sólo cortar y pegar.
_______________________

Sub PasswordBreaker()

' Rompe la protección de contraseña de hoja de cálculo.

Dim me como entero, j como entero, k como entero
Dim l como entero, m como número entero, n como entero
Dim i1 As Integer, como entero de i2, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Error volver siguiente
Para i = 65 a 66: para j = 65 a 66: para k = 65 a 66
Para l = 65 a 66: para m = 65 a 66: para i1 = 65 a 66
Para i2 = 65 a 66: para i3 = 65 a 66: para i4 = 65 a 66
Para i5 = 65 a 66: para i6 = 65 a 66: para n = 32 a 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)
Si ActiveSheet.ProtectContents = False Then
MsgBox "Una contraseña utilizable es" & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Salida Sub
End If
Next: Siguiente: siguiente: siguiente: siguiente: siguiente
Next: Siguiente: siguiente: siguiente: siguiente: siguiente
End Sub
________________________