Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not CloseMode
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
Cancel = 1
End If
End Sub
Um das Schließen einer UserForm über den X-Button zu deaktivieren, folge diesen Schritten:
Öffne dein Excel-Dokument und gehe in den VBA-Editor (Alt + F11).
Wähle die UserForm aus, die du bearbeiten möchtest.
Füge den folgenden Code in das Code-Fenster der UserForm ein:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not CloseMode
End SubDieser Code sorgt dafür, dass das Schließen der UserForm über den X-Button deaktiviert wird.
Um eine benutzerdefinierte Nachricht anzuzeigen, wenn der Benutzer versucht, die UserForm zu schließen, kannst du den Code wie folgt anpassen:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
Cancel = 1
End If
End SubSpeichere deine Änderungen und teste die UserForm. Nun sollte der X-Button in der UserForm nicht mehr funktionieren.
Fehler: Der X-Button funktioniert weiterhin.
Fehler: Die Meldung wird nicht angezeigt.
CloseMode auf 0 überprüft wird, wie im Beispielcode gezeigt.Eine weitere Möglichkeit, das Schließen der UserForm über den X-Button zu deaktivieren, besteht darin, die Eigenschaften der UserForm anzupassen:
CloseButton auf False. Dies wird den X-Button vollständig ausblenden.Bitte beachte, dass dies nicht die gleiche Flexibilität bietet wie die oben beschriebenen VBA-Methoden.
Angenommen, du hast eine UserForm zur Eingabe von Daten und möchtest sicherstellen, dass die Benutzer die Anwendung nur über eine bestimmte Schaltfläche schließen können. Der folgende VBA-Code kann verwendet werden:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Bitte verwenden Sie die -Ende- Schaltfläche zum Schließen.", vbCritical
Cancel = 1
End If
End SubDieser Code gibt dem Benutzer eine klare Anweisung, wie er die UserForm schließen kann.
QueryClose-Ereignisprozedur, um nicht nur das Schließen über den X-Button zu steuern, sondern auch um zusätzliche Validierungen durchzuführen, bevor die UserForm geschlossen wird.1. Kann ich den X-Button nur für bestimmte Bedingungen deaktivieren?
Ja, du kannst Bedingungen in den Code einfügen, um das Schließen nur unter bestimmten Umständen zu erlauben.
2. Welche Excel-Versionen unterstützen diese Methode?
Die beschriebenen Methoden sind in den meisten modernen Excel-Versionen (Excel 2010 und höher) verfügbar.
3. Was passiert, wenn ich den Code nicht korrekt einfüge?
Wenn der Code nicht korrekt eingefügt wird, kann es sein, dass der X-Button weiterhin funktioniert oder die Meldung nicht angezeigt wird. Achte daher auf die richtige Platzierung des Codes.