当任一打开的工作簿要关闭时立即产生此事件。
Private Sub object_WorkbookBeforeClose(ByVal Wb As Workbook, ByVal Cancel As Boolean)
object 在类模块中带有事件声明的 Application 类型对象。有关详细信息,请参阅 Application 对象事件的用法。
Wb 要关闭的工作簿。
Cancel 当事件产生时为 False。如果该事件过程将本参数设为 True,则该过程执行结束之后不关闭工作簿。
本示例在关闭工作簿之前询问用户是否关闭。
Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, _
Cancel as Boolean)
a = MsgBox("Do you really want to close the workbook?", _
vbYesNo)
If a = vbNo Then Cancel = True
End Sub