ich möchte das speichern einer Mappe nur zulassen, wenn sie gleichzeitig geschlossen wird. Sonst soll eine entsprechende Meldung an den Nutzer ausgegeben werden.
Danke für Hilfe Detlef
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg As Integer
Application.EnableEvents = False
If Not Me.Saved = True Then
msg = MsgBox("Soll gespeichert werden?", 36, "wills wissen...")
If msg = 6 Then
Me.Save
Else
Me.Saved = True
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Nur beim Schließen erlaubt!", 64, "weise hin..."
Cancel = True
End Sub