In diesem Artikel zeigen wir, wie Sie die x-Schaltfläche im Benutzerformular mithilfe von VBA deaktivieren.
In diesem Beispiel haben wir ein Benutzerformular erstellt, das durch Klicken auf die Schaltfläche Ausführen auf dem Arbeitsblatt aktiviert werden kann.
Dieses Benutzerformular enthält nur eine Schaltfläche, die zum Schließen des Benutzerformulars verwendet wird. Das Benutzerformular kann nur durch Klicken auf diese Schaltfläche geschlossen werden. Auch das Drücken der Tastenkombination Alt+F4 auf der Tastatur kann dieses Benutzerformular nicht schließen.
Logikerklärung
Um den x-Button des Benutzerformulars zu deaktivieren, haben wir das Ereignis "Abfrage schließen" des Benutzerformulars verwendet. Dieses Ereignis wird vor dem Schließen des Benutzerformulars ausgelöst.
In diesem Fall haben wir die Bedingung festgelegt, dass, wenn der Schließmodus die Menüsteuerung ist, das Benutzerformular nicht geschlossen wird; stattdessen eine Informationsmeldung im Dialogfeld anzeigen.
Bitte folgen Sie unten für den Code
Option Explicit Sub running() UserForm1.Show End Sub 'Unten Code im Benutzerformular hinzufügen Private Sub CommandButton1_Click() 'Benutzerformular schließen Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Verwenden des Query Close-Ereignisses von Userform ' Vergleich des konstanten Wertes der CloseMode-Variable 'Wenn es gleich der eingebauten Konstante des Kontrollmenüs ist 'Dann das Schließen des Benutzerformulars verhindern und 'Informationsmeldungsdialogfeld anzeigen Wenn CloseMode = vbFormControlMenu Dann 'Variablenwert abbrechen auf True ändern 'Standardmäßig ist es False Cancel = True MsgBox "Sie können den Dialog nicht so schließen!" Ende, wenn Ende Unter
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site