Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schließen mit 'X' unterbinden

Forumthread: Schließen mit 'X' unterbinden

Schließen mit 'X' unterbinden
25.02.2004 09:34:07
giuseppe
Hallo Freunde,
guten Morgen
Wie unterbinde das Schließen von Excel mit 'X'?
danke Giuseppe
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schließen mit 'X' unterbinden
25.02.2004 09:37:14
AndreasS
Morgen,
'Schließen über "X" nicht möglich...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "Bitte verlassen Sie das Dialogfeld mit den Schaltflächen.", _
vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."
End If
End Sub

Gruß Andreas
Anzeige
Sorry, etwas zu schnell...
25.02.2004 09:38:42
AndreasS
Manchmal sollte man Fragen besser lesen...
Das Makro gilt natürlich für eine Userform...
Nicht UserForm, sondern EXCEL
25.02.2004 09:38:47
Boris
Hi,
...für Excel geht´s nur mit API.
Grüße Boris
AW: Schließen mit 'X' unterbinden
25.02.2004 09:39:18
Jan P
Hallo Andreas,
das gilt aber nur für die UserForm...
Wenn er keine hat, gehts nicht...
MfG Jan P
Anzeige
AW: Schließen mit 'X' unterbinden
25.02.2004 10:02:34
AndreasS
...hab ich dann ja auch gemerkt....
AW: Schließen mit 'X' unterbinden
25.02.2004 09:40:53
AndreasS
Hi,
nochmals ich:
Wenn du die "Mappe" meinst:
https://www.herber.de/forum/archiv/356to360/t356356.htm
Option Explicit
Public bolbeenden As Boolean
Public 

Sub schliessen()
bolbeenden = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Gruß Andreas
Anzeige
Danke an Alle
25.02.2004 10:31:58
Giuseppe
Sorry für die Verspätung: Ich war kurz weg!!!
Danke nochmal!
Giuseppe
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige