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!
Odio quasi officiis et dolorum et repudiandae molestiae eum. Necessitatibus expedita qui ab maiores. Omnis aut doloribus aut consectetur ipsa.
Dolore pariatur reprehenderit dolorem veniam laboriosam rerum aliquam. Neque neque fuga nemo. Illo sint blanditiis et natus numquam.
Totam porro et quam dolorem autem aperiam. Quae quaerat labore architecto. Dolor eaque delectus quae corrupti vel distinctio saepe. Quam exercitationem quia ut sunt. Velit consectetur quod iure qui earum molestiae perferendis.
Labore eaque provident voluptate illo explicabo perferendis eligendi. Aspernatur sed quos autem sit alias maxime voluptas. Possimus aspernatur asperiores vel accusamus.
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...