excel vba控制事件是否有效

在excel中，有些时候需要控制事件的效果，使Excel事件无效以方便用户的操作体验。但是也不可能逐个去取消屏蔽事件的在模块中，加入下面代码即可控制事件是否有效SubExcel_Partner()
Application.EnableEvents=False
ActiveWorkbook.Save
MsgBox"Excel事件已无效，下面将恢复！"
Application.EnableEvents=True
ActiveWorkbook.Save
EndSub
运行效果，通过EnableEvents对象控制事件是否有效，如图

1512120507108943.png