create your own Save dialog in the event: : Workbook Event « Excel « VBA / Excel / Access / Word






create your own Save dialog in the event:

 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Msg As String
    Dim Response
    Dim cbWSMenuBar As CommandBar
    If Not ThisWorkbook.Saved Then
        Msg = "Do you want to save the changes you made to " & Me.Name & "?"
        Response = MsgBox(Msg, vbQuestion + vbYesNoCancel)
        Select Case Response
            Case vbYes
                ThisWorkbook.Save
            Case vbNo
                ThisWorkbook.Saved = True
            Case vbCancel
                Cancel = True
                Exit Sub
            End Select
    End If
    On Error Resume Next
    Set cbWSMenuBar = Application.CommandBars("Worksheet menu bar")
    cbWSMenuBar.Controls("MrExcel Programs").Delete
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.Before Save event
5.To link that tab's command bar to a right-click in any cell, enter the following code in the private module of ThisWorkbook:
6.Pass value between events
7.Workbook activation events
8.minimizes the workbook's window:
9.Workbook_BeforePrint
10.use the BeforePrint event to add information to a header or footer before the sheet is printed
11.BeforeClose event is used to delete a custom menu
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