I need to unprotect a protected sheet but it has password protection on it
and I do not have the password, can anybody help?

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

Not sure if this is the correct site, but give it a try.

http://www.mcgimpsey.com/excel/removepwords.html

HTH

Thanks for your help I havenow managed to fix the problem.

Cheers

"DNA" wrote:

Not sure if this is the correct site, but give it a try.

http://www.mcgimpsey.com/excel/removepwords.html

HTH

I used this method but when i try to unlock the password, the error msg
"Object variable or With block variable not set" appeared. Pls help.

TQ

"Iain A C T" wrote:

Thanks for your help I havenow managed to fix the problem.

Cheers

"DNA" wrote:

Not sure if this is the correct site, but give it a try.

http://www.mcgimpsey.com/excel/removepwords.html

HTH

This is a routine that has worked lots of times for others.

My guess is that the code got fouled up when you copied|pasted.

I'd go back to that site and get a fresh copy.

If that still doesn't work, include the line that caused the error.

S.CYJ wrote:

I used this method but when i try to unlock the password, the error msg
"Object variable or With block variable not set" appeared. Pls help.

TQ

"Iain A C T" wrote:

Thanks for your help I havenow managed to fix the problem.

Cheers

"DNA" wrote:

Not sure if this is the correct site, but give it a try.

http://www.mcgimpsey.com/excel/removepwords.html

HTH



--

Dave Peterson

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

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

Hie,
well thanks alot, now i got the result and password breaked.

Anney

"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

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