从 Excel 2003 升级到 2007 会导致“堆栈溢出错误” 在以前工作的vba上

Question

以下 VBA 代码在 Excel 2003 中运行良好，但在 Excel 2007 中会导致堆栈溢出错误。该代码需要根据下拉菜单选择解锁或锁定某些单元格。 我需要能够在 Excel 2003 和 2007 中运行代码。请帮忙。

Private Sub Worksheet_Change(ByVal Target As Range)
   If [E28] = "NO" Then
     ActiveSheet.Unprotect ("PASSWORD")
     [K47:K53].Locked = False
     [K47:K53].Interior.ColorIndex = 16
     [K47:K53].ClearContents
     ActiveSheet.Protect ("PASSWORD")
   Else
     ActiveSheet.Unprotect ("PASSWORD")
     [K47:K53].Interior.ColorIndex = 0
     'Next line is optional, remove preceding apostrophe if protection should stay on.
     ActiveSheet.Protect ("PASSWORD")
   End If
End Sub

Answer 1

堆栈溢出几乎肯定来自递归。 不确定为什么在 Excel 2003 中没有出现堆栈溢出 - 也许是在堆栈溢出之前引发了错误。

您可以防止无限递归，如下所示：

Private m_bInChange As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If m_bInChange Then Exit Sub
On Error GoTo ErrHandler
    m_bInChange = True
    If [E28] = "NO" Then
        ActiveSheet.Unprotect ("PASSWORD")
        [K47:K53].Locked = False
        [K47:K53].Interior.ColorIndex = 16
        [K47:K53].ClearContents
        ActiveSheet.Protect ("PASSWORD")
    Else
        ActiveSheet.Unprotect ("PASSWORD")
        [K47:K53].Interior.ColorIndex = 0
        'Next line is optional, remove preceding apostrophe if protection should stay on.
        ActiveSheet.Protect ("PASSWORD")
    End If

    m_bInChange = False
    Exit Sub
ErrHandler:
    m_bInChange = False
    Exit Sub
End Sub

Answer 2

每当工作表中的任何单元格发生更改时，您的方法都会被调用。 您的“NO”块会更改目标单元格的内容，从而导致再次调用该方法。

选项：

1. 按照 Joe 建议使用标志变量，看看您是否已经在执行

2. 测试“目标”值，看看它是否是 E28，如果这是您想要捕获的单元格更改。 类似的东西

   如果目标.地址<> "$E$28" 然后 Exit Sub