Hie Dave,

thanks alot for your concern, by luck when i post the question, after 10
minutes i did the same things, which you write me in reply, and i break the
password protection.

thanks , thanks alot

Anney



"Dave Peterson" wrote:

close the workbook with the macro.
turn the security to medium or low
(Tools|macro|security|security level)
then reopen the workbook with the macro.

Answer Yes if prompted to enable macros.

Anney wrote:

Hie..
Well i check the given passwordbreak macro, and it works, thx
But now i'm in trouble, because i want to crack another sheet password, but
when i runs Macro, it gives error message for High security risk, and i can't
break it?

so can you guide me please, what i do for it?

Thx
Anney

"swedish max" wrote:


record a macro and paste the text below into it:-

Sub PasswordBreaker()
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


Then Run this macro, it will take a few minutes but will unprotect your
sheet.


--
swedish max
------------------------------------------------------------------------
swedish max's Profile: http://www.excelforum.com/member.php...o&userid=24408
View this thread: http://www.excelforum.com/showthread...hreadid=383556



--

Dave Peterson