Posted By

cueballrawn on 11/25/16


Tagged

password excel crack cracker


Versions (?)

Excel (VBA) worksheet password cracker (Ver 2010 & below)


 / Published in: Visual Basic
 

URL: https://www.ablebits.com/office-addins-blog/2016/02/10/protect-unprotect-excel-sheet-password/#unlock-excel-spreadsheet-vba

If you've forgotten a password to an Excel workbook that was created in version 2010 or older. See URL for more details.

  1. Sub PasswordBreaker()
  2. 'Breaks worksheet password protection.
  3.  
  4. Dim i As Integer, j As Integer, k As Integer
  5. Dim l As Integer, m As Integer, n As Integer
  6. Dim i1 As Integer, i2 As Integer, i3 As Integer
  7. Dim i4 As Integer, i5 As Integer, i6 As Integer
  8.  
  9. On Error Resume Next
  10.  
  11. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  12. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  13. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  14. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  15.  
  16. ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
  17. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  18. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  19.  
  20. If ActiveSheet.ProtectContents = False Then
  21. MsgBox "One usable password is " & Chr(i) & Chr(j) & _
  22. Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
  23. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  24.  
  25. Exit Sub
  26.  
  27. End If
  28.  
  29. Next: Next: Next: Next: Next: Next
  30. Next: Next: Next: Next: Next: Next
  31. End Sub

Report this snippet  

You need to login to post a comment.