Skip to content

Instantly share code, notes, and snippets.

@virgenherrera

virgenherrera/Remove Excel Password

Created September 20, 2016 05:30
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save virgenherrera/09c2eee4f20f40413a8dc0341f6fc2ba to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save virgenherrera/09c2eee4f20f40413a8dc0341f6fc2ba to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. virgenherrera created this gist Sep 20, 2016.
    20 changes: 20 additions & 0 deletions Remove Excel Password
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,20 @@
    Sub Descubrir_contraseña()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
    For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
    For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
    For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
    Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
    & Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
    ActiveSheet.Unprotect Contraseña
    If ActiveSheet.ProtectContents = False Then
    MsgBox "¡Enorabuena!" & vbCr & "La contraseña es:" & vbCr & Contraseña
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub