Schließen über x bei UserForm vermeiden

• Schließen über x bei UserForm vermeiden von ray vom 05.11.2003 13:18:48
  • AW: Schließen über x bei UserForm vermeiden - von Andi_H am 05.11.2003 13:22:49
  • AW: Schließen über x bei UserForm vermeiden - von Hajo_Zi am 05.11.2003 13:22:58
  • AW: Schließen über x bei UserForm vermeiden - von Boris am 05.11.2003 13:23:04
  • AW: Schließen über x bei UserForm vermeiden - von GerdW am 05.11.2003 13:23:35
  • AW: Schließen über x bei UserForm vermeiden - von Andi_H am 05.11.2003 13:57:12

Betrifft: Schließen über x bei UserForm vermeiden
von: ray
Geschrieben am: 05.11.2003 13:18:48
Hallo

ich habe von Mr. Herber gelernt, daß ich mit
"if not Dialog-yx.show then exit sub"
auf den klick auf das kreuz vom fenster reagieren kann.
Wie geht das bei meiner "frmXY".

hab schon alles ausprobiert, geht aber nicht wie beim Dialog???
Was soll ich tun.
Danke aus Hamburg

Betrifft: AW: Schließen über x bei UserForm vermeiden
von: Andi_H
Geschrieben am: 05.11.2003 13:22:49
Hi ray,
diesen Code in deine Userform rein:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

Gruß aus Bayern,

Andi

Betrifft: AW: Schließen über x bei UserForm vermeiden
von: Hajo_Zi
Geschrieben am: 05.11.2003 13:22:58
Hallo Ray

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

vergesse aber kein Ende Button.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro



Betrifft: AW: Schließen über x bei UserForm vermeiden
von: Boris
Geschrieben am: 05.11.2003 13:23:04
Hi Ray,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

Grüße Boris

Betrifft: AW: Schließen über x bei UserForm vermeiden
von: GerdW
Geschrieben am: 05.11.2003 13:23:35
If closemode = 1 then Cancel = 1 '(oder True)

Ins QueryClose - Ereignis

Betrifft: AW: Schließen über x bei UserForm vermeiden
von: Andi_H
Geschrieben am: 05.11.2003 13:57:12
Hi ray,

mit Alt+F11 in den VBEditor wechseln, LINKS IST DER Projektexplorer, unter formulare findest du deine Userform, diese im linken fenster doppelklicken.
Dann kannst du die ereignisse der Form festlegen. (Click ist voreingestellt wenn noch nichts geändert wurde) das klick ereignis in der Combobox wechseln auf QueryClose
sieht so aus:

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

und darein gehört das Cancel = true

Gruß
Andi

Excel-Beispiele zum Thema " Schließen über x bei UserForm vermeiden"
Diagramm in Userform	XL-Dateien in UserForm listen
UserForm an Excel-Fenster anpassen	Fundstellen in UserForm listen
Module und UserForms austauschen	In einer Schleife auf Elemente einer UserForm zugreifen
Werte in eine ComboBox einer UserForm übernehmen	Zellinhalt als Label-Aufschrift in UserForm
Alle CheckBoxes einer UserForm ansprechen	Wenn kein Eintrag, UserForm nicht schließen