Before Save event : Workbook Event « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Workbook Event

Before Save event

 

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      Dim lReply As Long
      If SaveAsUI = True Then
      lReply = MsgBox("Do you wish to save this workbook?", vbQuestion + vbOKCancel)
      Cancel = (lReply = vbCancel)
      If Cancel = False Then Me.Save
          Cancel = True
      End If
End Sub








Related examples in the same category

1.If you want to prevent users from printing only particular sheets in your workbook, use this similar code instead:
2.Preventing Users from Inserting More Worksheets
3.If you want Excel to stop prompting you to save changes you didn't make
4.To link that tab's command bar to a right-click in any cell, enter the following code in the private module of ThisWorkbook:
5.Pass value between events
6.Workbook activation events
7.minimizes the workbook's window:
8.Workbook_BeforePrint
9.use the BeforePrint event to add information to a header or footer before the sheet is printed
10.BeforeClose event is used to delete a custom menu
11.create your own Save dialog in the event:
12.Set application key in Workbook Open event and BeforeCloseEvent
13.Workbook open event
14.Workbook Events Open: enable custom toolbar
15.procedure is executed when the workbook is closed
16.Workbook_SheetSelectionChange
17.The BeforeClose event for a workbook
18.The BeforeSave event for a workbook
19.Activate and deactivate events in a workbook
20.Cancel Close action based on the A1 value
21.only allow the workbook to close if the figure in A1 is between 500 and 600:
22.If you want to make sure that all changes are saved when the workbook closes
23.to discard any changes to the workbook