• 1er paso:
    Presiona ALT + F8 para que te da la pantallita de crear una macro y el nombre del macro y pone crear
  •  2do paso:
    cuando le des CREAR te lleva al editor de Visual Basic,
    pone:

    Sub breakit()

    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
    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 «One usable password is » & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
    & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If

    End Sub

    Guardas y despues ejecutas el macro ( flechita de play en el VB )
    espera uno rato y te aparece un cartel con la clave interna de Exel y en la opción desproteger hoja pones la clave y listo.

NOTA: Aunque la clave no sea correcta si guardáis el Excel aparece desprotegido

Por viperEF

Deja un comentario

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

A %d blogueros les gusta esto: