【VBA编程】13.Workbook对象的事件

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.Saved = False Then
    ThisWorkbook.Save
    MsgBox "工作簿已经发生变更，已经保存", vbOKOnly, "测试BeforeClose事件"
    Cancle = True
    End If
End Sub

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

Private Sub workbook_windowsActivate(ByVal wn AsWindow)
    MsgBox "欢迎使用Excle 2013电子表格处理程序", vbOKOnly, "测试windowsActivate事件"
End Sub
Private Sub workbook_windowresize(ByVal wn AsWindow)
    MsgBox "你已经调整了Excle 2013应用程序的窗口大小", vbOKOnly, "测试windowsActivate事件"
End Sub