unkown password sheet, need to unprotect 1

[smiley0q0]

my boss has given me some old excel spreadsheets that the sheets were password protected by some unknown john doe
can't get into them to make the necessary changes

could start from scratch and do some copy paste, but i thought i'd try here first...
a while back I saw either a FAQ or a post with a the code to unprotect a passworded sheet for when you lost or forgot or didn't have the password.

i have searched high and low and can't find it again

has anyone seen it lately or point me in the right direction?

Thanks

 

[Dsuperc]

http://www.elkraft.ntnu.no/~huse/xlpassword.htm

 

[smiley0q0]

thanks, have looked into several of those but company wont go for paying for anything... they said either i crack the code or start from scratch...

 

[smiley0q0]

sorry, i spoke too soon... oops.

thank you

 

[keepingbusy]

Hi

Go here

http://customsoftwareapplications.co.uk/csoftware/recover.htm#document

If you send the document to the email address on the above web page, I may be able to unlock it for you (Free)

KB

Alone we can do so little, together we can do so much

 

[ilses]

A bit slow:

Sub WorksheetUnprotect()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1, i2, i3, i4, i5, i6
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
DoEvents
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
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

 

[ETID]

I have a piece of code that I got from this site...I'll post it on Monday