Clever-Excel-Forum

Hallo liebe Experten,

dieser Code steht in einer UserForm.
Es wird vehindert, dass die Userform über das Kreuz geschlossen wird.
Das funktioniert gut.

PHP-Code:
Option Explicit
Private Sub CommandButton1_Click() ' Ende OHNE Sichern
   ThisWorkbook.Close SaveChanges:=False
End Sub

Private Sub CommandButton2_Click() ' Ende und Sichern
   ThisWorkbook.Close SaveChanges:=True
End Sub

Private Sub CommandButton3_Click() ' Zurück zum Programmm
     Unload UserForm2
     UserForm1.Show
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = 1
End Sub 

Aber wenn ich verhindern will, dass man Excel über das Kreuz in einem Blatt beendet,
kommt es zum Widerspruch mit der Userform.
Ich klicke auf den CommandButton 2 und es erscheint dann die MsgBox.
Da sollte eigentlich nichts erscheinen und auch nichts passieren.

Ich habe in einer Beispieldatei diesen Code gefunden und eingebaut.

PHP-Code:
Option Explicit
Public bolbeenden As Boolean
Public Sub schliessen()
    bolbeenden = True
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not bolbeenden Then
        MsgBox "Beendenschaltfläche benutzen.", 48, "Hinweis"
        bolbeenden = True
        Cancel = True
    End If
End Sub 

Was muss ich ändern, damit beim Klick auf das Kreuz im Blatt die MSGBOX erscheint mit Hinweis,
aber dennoch das Schließen der Userform über das Kreuz drin bleibt?

Hallöchen,

ich vermute, das ist eine Frage für's Forum und kein Beispiel für den Beispielbereich ... Ich hab's mal verschoben.

maine-coon

schauan