Excel VBA教程:BeforeSave事件

保存工作簿之前产生此事件。

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

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

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

Excel VBA教程:BeforeSave事件·示例

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


Private Sub Workbook_BeforeSave(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教程:BeforeRightClick事件 下页:Excel VBA教程:Calculate事件

Excel VBA教程:BeforeSave事件

Excel VBA教程:Calculate事件 Excel VBA教程:Change事件
Excel VBA教程:Deactivate事件 Excel VBA教程:DragOver事件
Excel VBA教程:DragPlot事件 Excel VBA教程:FollowHyperlink事件
Excel VBA教程:GotFocus事件 Excel VBA教程:LostFocus事件
Excel VBA教程:MouseDown事件 Excel VBA教程:MouseMove事件
Excel VBA教程:MouseUp事件 Excel VBA教程:NewSheet事件
Excel VBA教程:NewWorkbook事件 Excel VBA教程:Open事件
Excel VBA教程:PivotTableCloseConnection事件 Excel VBA教程:PivotTableOpenConnection事件
Excel VBA教程:PivotTableUpdate事件 Excel VBA教程:Resize事件
Excel VBA教程:Select事件 Excel VBA教程:SelectionChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号