Schliessen einer UserForm mit dem Schliesskreuz verhindern

Um zu unterbinden, daß jemand die Userform über das Schliesskreuz (kleines Kreuz rechts oben) schliesst nutzen Sie nachstehenden Code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

MsgBox "Bitte schliessen Sie die Userform nur über den vorgegebenen Button !"

Cancel = True

End If