Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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