ich verhindere über eine einfache Prüfroutine, dass die Datei ohne Betätigung
eines Quit-Buttons geschlossen werden kann. Das funktioniert auch soweit gut.
Problem: wenn jemand die Datei über das Menü und "Excel beenden" schließt
(oder dem entsprechenden Shortcut) wird das ausgehebelt. Kann ich das
irgendwie umgehen? Bin für jede Antwort dankbar.
Gruß
Klaus
Option Explicit
Public QuitPRÜF As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If QuitPRÜF = False Then
Cancel = True
MsgBox "Bitte beenden Sie die Datei ausschliesslich über den Quit-Button auf der Eingangs- _
Seite"
Exit Sub
End If
End Sub
Private Sub Workbook_Open()
QuitPRÜF = False
End Sub
Sub QuitButton()QuitPRÜF = True
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
ThisWorkbook.Close True
End Sub