Abfangen, wenn UserForm mit X beendet werden soll

110018

Möchten Sie abfangen, wenn das X (Schliesen) in einer Userform gedrückt wird?
Diese Makro fängt dieses Ereignis ab und verhindert das schließen der UserForm. Fügen Sie den Code einfach zusätzlich zu allen anderen Sub´s die die UserForm betreffen in die jeweilige UserForm ein.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
      MsgBox "Bitte mit dem Button 'Beenden' schließen!"
      Cancel = True
   End If
End Sub

Wenn Sie die UserForm mit dem Kreuz schließen möchten, erscheint das Fenster "Bitte mit dem Button 'Beenden' schließen!. Dies ist nun der einzige Weg, die Userform zu beenden.