excel vba控制事件是否有效

在excel中，有些时候需要控制事件的效果，使Excel事件无效以方便用户的操作体验。但是也不可能逐个去取消屏蔽事件的

在模块中，加入下面代码即可控制事件是否有效

Sub Excel_Partner()
    Application.EnableEvents = False
    ActiveWorkbook.Save
    MsgBox "Excel事件已无效，下面将恢复！"
    Application.EnableEvents = True
    ActiveWorkbook.Save
End Sub

运行效果，通过EnableEvents对象控制事件是否有效，如图