Средство взлома паролей Excel приводит к сбою программы

Я работаю над файлом Excel, в котором около дюжины отдельных листов. Я использовал приведенный ниже код, чтобы взломать пароль на каждом из листов.

Однако есть два листа, на которых я сталкиваюсь с проблемой. Каждый раз, когда я запускаю приведенный ниже код, он полностью выводит Excel из строя. Я пробовал разные коды, чтобы взломать пароль на этих двух листах, но та же проблема продолжает возникать.

Эти два листа, похоже, не имеют никаких отличий друг от друга простыни, но, может быть, я что-то упускаю из виду? Рабочая книга не защищена, и в файле нет никаких других макросов. Любые идеи будут высоко оценены!

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