版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

4 其他事件

针对插件的事件主要有Startup、Shutdown这两个事件，在第2节中已经讲解。在开发窗口中，选择对象和事件那里可以看到相应的事件：

图9 （ThisAddIn事件）对应的事件

但是，除了插件的事件，还有Excel本身的事件。

在[（ThisAddIn事件）]处，选中[Application]，可以看到很多Excel本身的事件，主要的事件说明如下：

事件	说明
WorkbookOpen	打开工作簿时
WorkbookDeactivate	工作簿被取消激活时
WorkbookActivate	工作簿被激活时
WorkbookBeforeSave	工作簿被保存前
WorkbookAfterSave	工作簿被保存后
WorkbookBeforeClose	工作簿被关闭前
WorkbookNewSheet	创建新的工作表时
SheetActivate	工作表被激活时
SheetDeactivate	工作表被取消激活时
SheetChange	工作表的单元格发生改变时
SheetSelectionChange	工作表选择区域发生改变时
SheetBeforeDoubleClick	用户鼠标双击工作表任意位置之前
SheetBeforeRightClick	用户鼠标右击工作表任意位置之前
WindowResize	Excel窗口大小变化时
WindowActivate	Excel窗口被激活时
WindowDeactivate	Excel窗口被取消激活时

[代码4]以下代码在Excel窗口发生变化时触发；在打开工作簿时输出工作簿文件名称。

    'Excel窗口大小发生变化

    Private Sub Application_WindowResize(Wb As Workbook, Wn As Window) Handles Application.WindowResize

        System.Diagnostics.Debug.WriteLine("WindowResize")

    End Sub

    '当打开工作簿时，输出工作簿的名称

    Private Sub Application_WorkbookOpen(Wb As Workbook) Handles Application.WorkbookOpen

        Dim workBookName As String

        workBookName = Application.ActiveWorkbook.Name

        System.Diagnostics.Debug.WriteLine(workBookName)

End Sub