【VBA編程】13.Workbook對象的事件

Workbook事件用於響應對Workbook對象所進行的操作。

【BeforeClose事件】

BforeClose事件用於響應窗口關閉的操作

在工程資源器中，雙擊“ThisWorkbook”對象，彈出"ThisWorkbook"窗口，並且選擇Workbook,BeforeClose

並在窗口中寫下如下代碼：
【代碼區域】

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.Saved = False Then
    ThisWorkbook.Save
    MsgBox "工作簿已經發生變更，已經保存", vbOKOnly, "測試BeforeClose事件"
    Cancle = True
    End If
End Sub

接着保存即可。保存完畢之后，重新打開Excle，編輯后直接退出。則會出現如下結果

【結果展示】

                                                         

【BeforeSave事件】

BeforeSave用於響應保存操作，當保存操作發生時，將觸發BeforeSave操作

與BeforeClose事件操作一致

【代碼區域】

Private Sub workbook_BeforeSave(ByVal saveAsUI As Boolean, cancel As Boolean)
    sel = MsgBox("真的要保存對工作簿的修改嗎？", vbYesNo, "測試BeforeSave事件")
    If sel = vbNo Then
     cancel = True
     End If
End Sub

【結果展示】

 

                                                              

 【WindowsActivate事件】

WindowsActivate事件用於保存響應激活窗口的操作，當激活窗口時，首先執行此函數內部的代碼，然后執行激活窗口的后續操作

【代碼區域】

Private Sub workbook_windowsActivate(ByVal wn As Window)
    MsgBox "歡迎使用Excle 2013電子表格處理程序", vbOKOnly, "測試windowsActivate事件"
End Sub
Private Sub workbook_windowresize(ByVal wn As Window)
    MsgBox "你已經調整了Excle 2013應用程序的窗口大小", vbOKOnly, "測試windowsActivate事件"
End Sub

如下調整窗口大小時：

【效果展示】