VBA工作簿事件.doc

PrivateSubWorkbook_Activate()MsgBox"工作簿被切换为作用工作簿",vbInformation,"Workbook_Activate"EndSubPrivateSubWorkbook_AddinInstall()MsgBox"激活新的加载宏时",vbInformation,"Workbook_AddinInstall"EndSubPrivateSubWorkbook_AddinUninstall()MsgBox"取消以前选取的加载宏时",vbInformation,"Workbook_AddinUninstall"EndSubPrivateSubWorkbook_BeforeClose(CancelAsBoolean)MsgBox"工作簿被关闭之前",vbInformation,"Workbook_BeforeClose"EndSubPrivateSubWorkbook_BeforePrint(CancelAsBoolean)MsgBox"工作簿打印之前",vbInformation,"Workbook_BeforePrint"EndSubPrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsBoolean)MsgBox"工作簿进行保存之前",vbInformation,"Workbook_BeforeSave"EndSubPrivateSubWorkbook_Deactivate()MsgBox"工作簿切换为非作用工作簿",vbInformation,"Workbook_Deactivate"EndSubPrivateSubWorkbook_NewSheet(ByValShAsObject)MsgBox"新建工作表",vbInformation,"Workbook_NewSheet"EndSubPrivateSubWorkbook_Open()MsgBox"打开工作簿",vbInformation,"Workbook_Open"EndSubPrivateSubWorkbook_PivotTableCloseConnection(ByValTargetAsPivotTable)MsgBox"数据***表关闭与其数据源的连接之后",vbInformation,"Workbook_PivotTableCloseConnection"EndSubPrivateSubWorkbook_PivotTableOpenConnection(ByValTargetAsPivotTable)MsgBox"数据***表打开与其数据源的连接之后",vbInformation,"Workbook_PivotTableOpenConnection"EndSubPrivateSubWorkbook_SheetActivate(ByValShAsObject)MsgBox"工作表"&&"切换为作用工作表",vbInformation,"Workbook_SheetActivate"EndSubPrivateSubWorkbook_SheetBeforeDoubleClick(ByValShAsObject,ByValTargetAsRange,CancelAsBoolea