Excel 取消对没有密码的所有工作表的保护

我一直在努力使下面的代码在我的工作簿中的所有工作表上工作，而不仅仅是活动工作表，但是在第三个工作表之后，它却陷入了一个循环中

我认为可能发生的事情是，这个工作簿中隐藏的工作表导致它失败。如果我可以取消对可见工作表的保护，那可能会解决这个问题？虽然我也尝试过，但我认为我的逻辑不正确，也不值得分享

这里的任何帮助都将不胜感激

我的编辑：

Sub UnprotectAllSheets()
         Dim WS_Count As Integer
         Dim WsNum As Integer
         WS_Count = ActiveWorkbook.Worksheets.Count
         For WsNum = 1 To WS_Count
            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
            Worksheets(WsNum).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 Worksheets(WsNum).ProtectContents = False Then
                GoTo NextSht
            End If
            Next: Next: Next: Next: Next: Next
            Next: Next: Next: Next: Next: Next
NextSht:
         Next WsNum

      End Sub

原始代码：

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

---

实际上，我前面提到的可视工作表问题可以解决它。我通过激活工作表获得了它，但不确定为什么只是执行

工作表（wsnum）。取消保护
不起作用。。。唉，下面是代码：

Sub passwordbreaker()
    Dim WS_Count As Integer
    Dim wsnum As Integer
    WS_Count = ActiveWorkbook.Worksheets.Count
    For wsnum = 1 To WS_Count
        If Worksheets(wsnum).Visible = True Then
            ActiveWorkbook.Worksheets(wsnum).Activate
            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
                 GoTo nextsht
            End If
            Next: Next: Next: Next: Next: Next
            Next: Next: Next: Next: Next: Next
        End If
nextsht:
    Next wsnum
End Sub