Schließen (X) in UF

Forumthread: Schließen (X) in UF
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schließen (X) in UF

Schließen (X) in UF

05.04.2006 12:30:56

Frank

Hallo Forum,
mit folgendem Code aus dem Archiv deaktiviere ich das Schließen (X) in einer UF:


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 -Beenden- Schaltfläche.", vbCritical
Cancel = 1
End If
End Sub

Besteht die Möglichkeit dieses X über einen Button aus einer anderen UF wieder
frei zu geben?
Vielen Dank
Gruß Frank

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schließen (X) in UF

05.04.2006 13:17:02

Tassos
AW: Schließen (X) in UF

05.04.2006 13:22:57

IngGi
AW: Schließen (X) in UF

05.04.2006 13:39:53

Frank

AW: Schließen (X) in UF

05.04.2006 13:17:02

Tassos

Hallo Frank,
Habe geradeeine Beispielmappe hochgeladen:
https://www.herber.de/bbs/user/32607.xls
Gruss!
Tassos

AW: Schließen (X) in UF

05.04.2006 13:22:57

IngGi

Hallo Frank,
so kannst du über einen CommandButton einen Schalter realisieren:


Private Sub CommandButton1_Click()
If Merker = True Then
Merker = False
Me.Caption = "Schließen deaktivieren"
Else
Merker = True
Me.Caption = "Schließen aktivieren"
End If
End Sub

Und so fragst du den Schalter in deinem Makro, dass das Schließen deaktiviert ab:


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'  Damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
If Merker = False Then
MsgBox "Bitte schließen Sie die Anwendung mit der -Beenden- Schaltfläche.", vbCritical
Cancel = 1
Else
End If
End Sub

Gruß Ingolf

AW: Schließen (X) in UF

05.04.2006 13:39:53

Frank

Vielen Dank für Eure Hilfe.
Da klappt wie ich es mir dachte!
Gruß

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!