Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
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
Option Explicit
Public WithEvents App As Excel.Application
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As _
Boolean)
Cancel=True
Msgbox wb.name &vblf &"wurde NICHT gespeichert"
End Sub
Option Explicit
Public WithEvents App As Excel.Application
Option Explicit
Private Sub Workbook_Open()
Set App = Application
End Sub