禁用特定事件

Question

我用一個按鈕來切換Application.EnableEvents：

Sub Button1_Click() 
If ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Disable Events" Then 
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Enable Events" 
    Application.EnableEvents = False 
Else 
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Disable Events" 
    Application.EnableEvents = True 
End If 
End Sub 

如何禁用SelectionChange不必禁用Change？

Answer 1

不完全確定爲什麼你想禁用SelectionChange或那會做什麼？

如果您有該部分的代碼，您可以將它包裝在if語句中。

' Insert the following code into a new module: Module1 
Public SelectionChange_Enabled As Boolean 

' Example of your Worksheet_SelectionChange event's code 
Public Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If SelectionChange_Enabled = True Then 
    ' Your code 
    End If 
End Sub 

您可以更改的SelectionChange_Enabled值來啓用或禁用事件中的代碼。