Forum

Password Code Crack...
 
Notifications
Clear all

Password Code Cracker is not working

5 Posts
2 Users
0 Reactions
234 Views
(@garytibble)
Posts: 25
Eminent Member
Topic starter
 

Hi

I have a password protected sheet in a Excel 2013 workbook (that someone has manged to work out the original password and change) that the following script does not work in:

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

Any assistance would be appreciated, because the spreadsheet is linked to others as a source of data.

Regards, Gary

 
Posted : 27/11/2017 8:36 pm
(@shaowu459)
Posts: 44
Eminent Member
 

IF you upload the file, i may help you to unprotect the sheet.

 
Posted : 27/11/2017 8:41 pm
(@garytibble)
Posts: 25
Eminent Member
Topic starter
 

Hi

Please find the attached spreadsheet.

The Worksheet in particular that I cannot access is "Operation WWW"

 
Posted : 27/11/2017 8:56 pm
(@shaowu459)
Posts: 44
Eminent Member
 

GaryTibble said
Hi

Please find the attached spreadsheet.

The Worksheet in particular that I cannot access is "Operation WWW"  

Hi,

Please refer to attched file, the sheet named "Operation WWW" was unprotected.

Youd code is OK, one trick is to save your workbook to 97-2003 version, then run the macro.

hope it helps.

Clark

 
Posted : 27/11/2017 9:38 pm
(@garytibble)
Posts: 25
Eminent Member
Topic starter
 

Hi Clark

That is really strange because the file I am trying to use definitely shows that sheet as password protected.

I will use the file you have returned and thanks for the file save tip.

 

Thanks very much, Gary

Capture.JPG

 
Posted : 27/11/2017 9:45 pm
Share: