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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen