password crack

[rccwill]

I recently took over a company spread sheet from a former employee, who password protected a sheet in a work book. The bad thing is that no one knows the password to change any of the cells. Is there a way to "crack" the password on the sheet?

 

[nutritiouspig]

Okay, and noted. Thanks for friendly replies!

S.

 

[Legacy 21301]

Sub Remove_Sheet_Protection()
With ActiveSheet
.Protect "", , , , True
.[A1].Copy .[A1]
End With
End Sub

Sub Remove_Workbook_Protection()
With ActiveWorkbook
.Protect "", True, True
.Unprotect
End With
End Sub

 

[N Prakash]

Password

Dear Ienze,

I have a worksheet which is protected and changed by some know person. Now he has forgoten. The data is small and from my organisation I cannot buy the software to crack it.

I tried the code which you have published, but it is not working and my system hangs when I try to run the macro.

Can any body help me in cracking the PW. in a sheet.

Regards,
Prakash.

 

[SIXTH SENSE]

hi!

this work for me for worksheet and workbook protection!

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> InternalPasswords()



<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, j <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, k <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> l <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, m <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, n <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> i1 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, i2 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, i3 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> i4 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, i5 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, i6 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>



<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>

<SPAN style="color:#00007F">For</SPAN> i = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> j = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> k = 65 <SPAN style="color:#00007F">To</SPAN> 66
<SPAN style="color:#00007F">For</SPAN> l = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> m = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> i1 = 65 <SPAN style="color:#00007F">To</SPAN> 66
<SPAN style="color:#00007F">For</SPAN> i2 = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> i3 = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> i4 = 65 <SPAN style="color:#00007F">To</SPAN> 66
<SPAN style="color:#00007F">For</SPAN> i5 = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> i6 = 65 <SPAN style="color:#00007F">To</SPAN> 66: <SPAN style="color:#00007F">For</SPAN> n = 32 <SPAN style="color:#00007F">To</SPAN> 126

ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr

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

<SPAN style="color:#00007F">If</SPAN> ActiveWorkbook.ProtectStructure = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>

<SPAN style="color:#00007F">If</SPAN> ActiveWorkbook.ProtectWindows = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>

<SPAN style="color:#00007F">If</SPAN> ActiveSheet.ProtectContents = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>

Range("a1").Value = "One usable password is "
Range("B1").Value = Chr(i) & Chr(j) _
& Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _
& Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr

<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>



this takes for several minuts to run! Depending on the password !!!

 

[Legacy 21301]

Re: Password

Dear Ienze,

I have a worksheet which is protected and changed by some know person. Now he has forgoten. The data is small and from my organisation I cannot buy the software to crack it.

I tried the code which you have published, but it is not working and my system hangs when I try to run the macro.

Can any body help me in cracking the PW. in a sheet.

Regards,
Prakash.

If you are using XL2000 or earlier :-

Sub Remove_Sheet_Protection()
With ActiveSheet
.Protect "", , , , True
.[A1].Copy .[A1]
End With
End Sub

In any event, if it really is just a sheet you want to unprotect, all that is required is to select all the cells then copy and paste to a new sheet.

 

[N Prakash]

Password

Hi,
Thanks a lot. It really worked fine. It saved lot of my time.

Regards,
Prakash