Gruppe
Dialog
Bereich
UserForm
Thema
Verhindern des Schließens einer UserForm mittels Schließkreuz
Problem
Wie kann ich verhindern, daß der Anwender eine UserForm mittels des rechts oben im Dialog angebrachten Schließkreuzes abbrechen kann?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmClose
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
StandardModule: basMain
Sub CallForm()
frmClose.Show
End Sub