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!
Et aliquam iure odit voluptatem commodi adipisci facere sunt. Suscipit ipsum sint excepturi repellendus harum nemo. Ea voluptatem fugit est accusamus. Cum est nam nostrum laudantium nobis voluptatem numquam sunt.
Dicta nam voluptas et quis doloremque saepe. Inventore itaque ea quia magni. Itaque omnis molestiae possimus ipsam voluptas illo. Qui cupiditate aut ipsum ea doloribus voluptas error. Vitae neque excepturi qui sed velit voluptatem repellat maiores.
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...