Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg As Integer
If msg = MsgBox("Wollen Sie wirklich beenden?", 36) = vbNo Then Cancel = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s As Integer
s = MsgBox(prompt:="Ich bin eine wichtige Meldung." & Chr(13) & "Dokument schließen?", Buttons:=vbYesNo)
If s = 7 Then Cancel = True
End Sub