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!
Aliquid rerum accusamus et quasi voluptas quibusdam at maxime. Consequatur aut quaerat enim iste excepturi. Eos eum ipsum molestiae eligendi quaerat consequatur.
Quaerat quidem est consectetur aperiam dolores quas. Qui dolores consectetur tempore omnis.
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...