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