WorkbookBeforeSave 事件

在保存任一打开工作簿之前产生此事件。

object   在类模块中带有事件声明的 Application 类型对象。有关详细信息，请参阅 Application 对象事件的用法。

Wb   工作簿。

SaveAsUi   如果显示“另存为”对话框，则为 True。

Cancel   当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不保存工作簿。

示例

本示例在保存工作簿之前询问用户是否保存。

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
        ByVal SaveAsUI As Boolean, Cancel as Boolean)
    a = MsgBox("Do you really want to save the workbook?", vbYesNo)
    If a = vbNo Then Cancel = True
End Sub