怎样用代码禁用或打开事件

cqdian

比如我设置了以下事件：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ("aa")
End Sub


而我想在另一代码中关闭或打开以上事件，事什么代码：
Sub Macro1()
关闭以上事件语名
..........
打开(激活）以上事件语句
End Sub

zjdh

只有关闭全部事件
Sub Macro1()
Application.EnableEvents = False '禁止触发事件
..........
Application.EnableEvents = True '打开触发事件
End Sub

cqdian

多谢zjdh,  这么快帮我解决了问题。