Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer '... brute force of weak checksum ... End Sub

Once the file is re-zipped and renamed back to .xlsx , the protection is gone. :