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.
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