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!
Sit sit laudantium eligendi eius incidunt. Rerum deserunt atque rerum dicta.
Molestiae est et molestiae hic consequatur. Dolor ea dolorem consequatur.
Repellendus odio quasi aut iure vitae vel. Minus pariatur expedita nam omnis voluptas doloribus qui. Rerum quae sed explicabo eos ut est. Cumque omnis rerum atque sunt. Sunt explicabo ut impedit fugiat et quaerat est consectetur.
Optio recusandae in quaerat cumque cumque eos. Cupiditate ducimus voluptatibus facere ea nam qui nulla et. Qui dolorum pariatur vitae ullam temporibus incidunt. Quasi odio neque sed.
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...