Excel Application事件

Private WithEvents Application As Excel.Application


Private Sub Application_AfterCalculate()

End Sub

Private Sub Application_NewWorkbook(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_ProtectedViewWindowActivate(ByVal Pvw As Excel.ProtectedViewWindow)

End Sub


Private Sub Application_ProtectedViewWindowBeforeClose(ByVal Pvw As Excel.ProtectedViewWindow, ByVal Reason As Excel.XlProtectedViewCloseReason, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowBeforeEdit(ByVal Pvw As Excel.ProtectedViewWindow, Cancel As Boolean)

End Sub

Private Sub Application_ProtectedViewWindowDeactivate(ByVal Pvw As Excel.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowOpen(ByVal Pvw As Excel.ProtectedViewWindow)

End Sub

Private Sub Application_ProtectedViewWindowResize(ByVal Pvw As Excel.ProtectedViewWindow)

End Sub

Private Sub Application_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Application_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Application_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)

End Sub

Private Sub Application_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)

End Sub

Private Sub Application_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Application_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

End Sub

Private Sub Application_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Application_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Excel.Hyperlink)

End Sub

Private Sub Application_SheetLensGalleryRenderComplete(ByVal Sh As Object)

End Sub

Private Sub Application_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As Excel.PivotTable, ByVal TargetRange As Excel.Range)

End Sub

Private Sub Application_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As Excel.PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Application_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As Excel.PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Application_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As Excel.PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Application_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As Excel.PivotTable)

End Sub

Private Sub Application_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

End Sub

Private Sub Application_SheetTableUpdate(ByVal Sh As Object, ByVal Target As Excel.TableObject)

End Sub

Private Sub Application_WindowActivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)

End Sub

Private Sub Application_WindowDeactivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)

End Sub

Private Sub Application_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)

End Sub

Private Sub Application_WorkbookActivate(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_WorkbookAddinInstall(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_WorkbookAddinUninstall(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_WorkbookAfterSave(ByVal Wb As Excel.Workbook, ByVal Success As Boolean)

End Sub

Private Sub Application_WorkbookAfterXmlExport(ByVal Wb As Excel.Workbook, ByVal Map As Excel.XmlMap, ByVal Url As String, ByVal Result As Excel.XlXmlExportResult)

End Sub

Private Sub Application_WorkbookAfterXmlImport(ByVal Wb As Excel.Workbook, ByVal Map As Excel.XmlMap, ByVal IsRefresh As Boolean, ByVal Result As Excel.XlXmlImportResult)

End Sub

Private Sub Application_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)

End Sub

Private Sub Application_WorkbookBeforePrint(ByVal Wb As Excel.Workbook, Cancel As Boolean)

End Sub

Private Sub Application_WorkbookBeforeSave(ByVal Wb As Excel.Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Application_WorkbookBeforeXmlExport(ByVal Wb As Excel.Workbook, ByVal Map As Excel.XmlMap, ByVal Url As String, Cancel As Boolean)

End Sub

Private Sub Application_WorkbookBeforeXmlImport(ByVal Wb As Excel.Workbook, ByVal Map As Excel.XmlMap, ByVal Url As String, ByVal IsRefresh As Boolean, Cancel As Boolean)

End Sub

Private Sub Application_WorkbookDeactivate(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_WorkbookModelChange(ByVal Wb As Excel.Workbook, ByVal Changes As Excel.ModelChanges)

End Sub

Private Sub Application_WorkbookNewChart(ByVal Wb As Excel.Workbook, ByVal Ch As Excel.Chart)

End Sub

Private Sub Application_WorkbookNewSheet(ByVal Wb As Excel.Workbook, ByVal Sh As Object)

End Sub

Private Sub Application_WorkbookOpen(ByVal Wb As Excel.Workbook)

End Sub

Private Sub Application_WorkbookPivotTableCloseConnection(ByVal Wb As Excel.Workbook, ByVal Target As Excel.PivotTable)

End Sub

Private Sub Application_WorkbookPivotTableOpenConnection(ByVal Wb As Excel.Workbook, ByVal Target As Excel.PivotTable)

End Sub

Private Sub Application_WorkbookRowsetComplete(ByVal Wb As Excel.Workbook, ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Application_WorkbookSync(ByVal Wb As Excel.Workbook, ByVal SyncEventType As Office.MsoSyncEventType)

End Sub