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

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

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

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