Åbne låst excel ark

Jeg har et Excel ark som  jeg ikke kan huske koden på
jeg har prøvet  med BST Cracker og en formel fra Store- morten
Sub PasswordBreaker()
'Knækker arkbeskyttelse.
  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 "Koden er brudt og dokumenet kan nu rettes!", vbExclamation + vbOKOnly
                              Exit Sub
                            End If
                          Next
                        Next
                      Next
                    Next
                  Next
                Next
              Next
            Next
          Next
        Next
      Next
    Next
End Sub

men hver gang  går excel ned  med beskeden  Excel  (svarer ikke)
hvad gør jeg forkert