Unprotect workbook without password

Question

I have a popular VBA code to unprotect a worksheet  but I am still running into the issue that the Workbook is protected    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   amp  Chr j   amp  Chr k   amp            Chr l   amp  Chr m   amp  Chr i1   amp  Chr i2   amp  Chr i3   amp            Chr i4   amp  Chr i5   amp  Chr i6   amp  Chr n      If ActiveSheet ProtectContents   False Then         MsgBox  One usable password is    amp  Chr i   amp  Chr j   amp                Chr k   amp  Chr l   amp  Chr m   amp  Chr i1   amp  Chr i2   amp                Chr i3   amp  Chr i4   amp  Chr i5   amp  Chr i6   amp  Chr n           Exit Sub     End If     Next  Next  Next  Next  Next  Next     Next  Next  Next  Next  Next  Next End Sub

User · Answer

No longer works for spreadsheets Protected with Excel 2013 or later -- they improved the pw hash   So now need to unzip  xlsx and hack the internals

User · Answer

Try the below code to unprotect the workbook   It works for me just fine in excel 2010 but I am not sure if it will work in 2013   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     ThisWorkbook Unprotect Chr i   amp  Chr j   amp  Chr k   amp            Chr l   amp  Chr m   amp  Chr i1   amp  Chr i2   amp  Chr i3   amp            Chr i4   amp  Chr i5   amp  Chr i6   amp  Chr n      If ThisWorkbook ProtectStructure   False Then         MsgBox  One usable password is    amp  Chr i   amp  Chr j   amp                Chr k   amp  Chr l   amp  Chr m   amp  Chr i1   amp  Chr i2   amp                Chr i3   amp  Chr i4   amp  Chr i5   amp  Chr i6   amp  Chr n           Exit Sub     End If     Next  Next  Next  Next  Next  Next     Next  Next  Next  Next  Next  Next End Sub

[excel] Unprotect workbook without password

Examples related to excel

Examples related to vba