Password Recovery Tool ? ? ?

  • Thread starter Thread starter Dodge Brown
  • Start date Start date
D

Dodge Brown

Hi All


Ive got a Workbook that I need to recover the password for the Sheet
Protection....Any Suggestion on the Best password recovery tool to use,
would be greatly appreciated ! ! !


Thanks

Dodge
 
Dodge,

Make the sheet you want to remove the protection from the active sheet and
then run this subroutine.
It will "come" back with teh message that an password is found. Click OK
and the protection from the sheet will be removed.

Sub PasswordBreaker_Sheet()
'Author unknown
'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



--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *
 
DUDE!


This is one of the COOLEST Things VBA Scripts I have Seen !

Love It SO MUCH Because Its Simple, Its Clever and IT WORKS ! ! ! !


AWESOME DUDE !!!!


Thanks Again !

Dodge



....Why Didnt i think of that ? . . . .
 
Dodge,

Your welcome.

I can however only take credit for posting.
I found the routine myself somewhere (can't remember where) so I didn't
develop it myself.
I agree however that it is VERY usefull.

--
Regards,
Auk Ales

* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *
 
Thanks Once More !

Development aside, Thanks for Your time & Effort to Post! I've come across
this before, and to be pointed in the right direction is Great! But to be
given the code is Even Better ! ! ! Only hope I can contribute as meaningful
and Directional Information to the group !!!!

Cheers

Dodge
 
Hi JE and All.

You failed to take credit for all the work that you put into removing
my crimes against efficient programming.

"Our" version is sweeter in that it circumvents any number of
different passwords from different sheets as well as the workbook
windows / structure password. In essence though all we did was loop
the basic algorithm.

I sit to be corrected, but I think that the original author is Bob
McCormick. We've been giving him credit for this for some time now and
with no-one else stepping forwards, I think it is probably correct.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
 
Hi Norman

" "Our" version is sweeter in that it circumvents any number of
different passwords from different sheets as well as the workbook
windows / structure password. In essence though all we did was loop
the basic algorithm."


Just like in the spreadsheet I sent you previously.

Regards

Ken Macksey
 
Back
Top