Private Sub Application_WorkbookBeforeSave( _
    ByVal Wb As Excel.Workbook, _
    ByVal SaveAsUI As Boolean, _
    <[In](), [Out]()> ByRef Cancel As Boolean) Handles _
    Application.WorkbookBeforeSave
 
        Wb.Application.DisplayAlerts = False
        Wb.Application.EnableEvents = False
        Cancel = True
        Wb.Saved = True
        Wb.Application.DisplayAlerts = True
        Wb.Application.EnableEvents = True
        Exit Sub
End Sub