Excel VBA教程:WorkbookBeforeSave事件

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

Private Sub object_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUi As Boolean, ByVal Cancel As Boolean)

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

Wb   工作簿。

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

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

Excel VBA教程:WorkbookBeforeSave事件·示例

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


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

上页:Excel VBA教程:WorkbookBeforePrint事件 下页:Excel VBA教程:WorkbookDeactivate事件

Excel VBA教程:WorkbookBeforeSave事件

Excel VBA教程:WorkbookDeactivate事件 Excel VBA教程:WorkbookNewSheet事件
Excel VBA教程:WorkbookOpen事件 Excel VBA教程:WorkbookPivotTableCloseConnection事件
Excel VBA教程:WorkbookPivotTableOpenConnection事件 Excel VBA教程:SolverAdd函数
Excel VBA教程:SolverChange函数 Excel VBA教程:SolverDelete函数
Excel VBA教程:SolverFinish函数 Excel VBA教程:SolverFinishDialog函数
Excel VBA教程:SolverGet函数 Excel VBA教程:SolverLoad函数
Excel VBA教程:SolverOk函数 Excel VBA教程:SolverOkDialog函数
Excel VBA教程:SolverOptions函数 Excel VBA教程:SolverReset函数
Excel VBA教程:SolverSave函数 Excel VBA教程:SolverSolve函数
Excel VBA教程:SQLBind函数 Excel VBA教程:SQLClose函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号