Not sure if this will help
if its a prevent changes password its easy to edit the file to remove the password. I've done that before but will need to remember or find the details again.
Is there anyone who knows how to remove a password from an excel file?
Look Here -> |
Not sure if this will help
if its a prevent changes password its easy to edit the file to remove the password. I've done that before but will need to remember or find the details again.
Toohey (14-09-09)
What version of excel? if its the older versions then it should have the 40bit strength and you will have a chance of brute forcing it.
If its the new versions then it could get hard.
Do you have any idea what the password could/should be like.
eg: 8 Characters, letters only.
If so this will help reduce the search space.
Outside of that you can use an online removing service. They dont find the password, but will decrypt the file for you. An example of such a site is passware.
Toohey (14-09-09)
Thanks Systemrat - that program worked but only gave me a bit of info, gotta go and buy the full retail to retreive everything.
crypto7 - It should be an XP docco with 40 bit strength. I have tried a few free demo programs, looks like the password is around 12 characters long, my guess is there is numbers and caps in the pass.
Am trying a program at the moment called ElcomSoft but it says it will take another 7 days to complete - WOAH.
7days is better the years LOL
This worked for me
Sub PasswordBreaker()
'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
Toohey (14-09-09)
I don't think it's a worksheet password, sounds like a file password to me
I was for the "open" password.
It has been sorted now....
Thanks all - thanks crypto7 - all sorted.
Bookmarks