Excel vba - 禁用鼠标事件

Question

我正在手动公式计算模式下开发Excel 2010工作簿.

file - > options - > formula - > Workbook calculation - > manual

但是,我想要一些菜单选项来重新计算工作簿.

所以我使用以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Application.EnableEvents = False

    If SOME_CONDITION

        Application.Calculate
        ActiveSheet.AutoFilter.ApplyFilter

    End If

    Application.EnableEvents = True

End Sub

问题是,如果我在执行此功能时滚动鼠标中键或单击单元格,则计算在完成之前突然终止,这是不可接受的.

似乎该行Application.EnableEvents=False不会阻止鼠标事件被触发,我无法找到任何可以防止此错误的替代方案.

所以我需要的是在计算过程中阻止所有事件的方法,或者以某种方式防止被触发的事件中断计算(就像工作簿公式计算不是手动时一样).

我非常感谢你的帮助!

谢谢.

马坦.

Answer 1

试试这个:

Application.Interactive = False 

宏正在运行.完成后将其恢复为true.