• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Unprotect Worksheet without password

Status
Not open for further replies.

Kel

New Member
Hi all,

If you have forgotten your password for your worksheet, the following may help:

Code:
Sub PasswordBreaker()
'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
 
Last edited by a moderator:
Thanks for all the replies. But still that doesn't seems to work. To test it I have protected a workbook and used the macro to break the password it simply says "One usable password is AAAAAAAAAAA". Does this mean i have to use this password to unlock the workbook, I have tried that too but not working.
 
Hi this macro only unprotect worksheet password not workbook If i have password to open the workbook this macro how help me please tell Luke M
Are you needing the password to open the workbook, or unlock the workbook? The latter can be accomplished using McGimpsey's code from link I posted. The former is more difficult, and will require external software. :(
 
Are you needing the password to open the workbook, or unlock the workbook? The latter can be accomplished using McGimpsey's code from link I posted. The former is more difficult, and will require external software. :(
Unlock the workbook is not possible from this code.I have to use software.
 
Status
Not open for further replies.
Back
Top