Protected worksheet password cracker
Hi Monkeys,
I just discovered this tool to crack a bunch of password protected sheets that I'm working on. I'm sure that some fellow monkeys will find this useful.
Dump the VBA code to the book and run it.
Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Been using almost exact this same one for a while now, has worked every single time. Should build a quick IF statement in there that when it cracks the password it opens a new sheet and pastes it in there so you have it for future use. Very good resource.
Thanks for sharing!
THANKS!
Consequuntur quasi iste illum magni. Quod autem ipsum nam. Est ipsa voluptas dicta deserunt consequuntur velit eligendi.
Eligendi consequatur et est. Dolore nihil asperiores at perferendis. A consequuntur est quo rerum quae consequatur praesentium excepturi.
Voluptate dolorem quasi in maiores assumenda error. Sint velit quo minima dicta iusto et saepe. Ab rerum ab illo velit. Temporibus facilis provident laudantium consequatur maiores consequatur. Numquam qui similique repellendus enim nobis ab.
See All Comments - 100% Free
WSO depends on everyone being able to pitch in when they know something. Unlock with your email and get bonus: 6 financial modeling lessons free ($199 value)
or Unlock with your social account...