Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Schließfunktion

Forumthread: Schließfunktion

Schließfunktion
08.10.2006 20:26:32
Mathias
Hallo an die Profis und VBA-Experten,
wie kann man die Schließfunktion des aktiven Excel Workbooks außer Betrieb setzen und den Vollbildschirm anzeigen?
Grüße
Mathias
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schließfunktion
08.10.2006 20:35:22
Thorsten_Z
Hallo Mathias,
meinst du das?
Application.DisplayFullScreen = true
gruss Thorsten
AW: Schließfunktion
08.10.2006 20:50:40
Mathias
Ja, so ähnlich.
Die Idee dazu ist super.
Wie kann ich es nun noch unterbinden, dass der Button "Ganzer Bildschirm schließen" angezeigt wird?
Gruß Mathias
AW: Schließfunktion
08.10.2006 20:58:05
Mathias
Wenn ich mir nun aber den Ablauf so recht anschaue, dann ist die Lösung doch nicht so glücklich. Der User hat nun ja keiner Mögglichkeit mehr den Bildschirmzu verkleinern.
Es ist also besser, wenn man nur die Schlißfunktion mit dem Kreuz oben recht außer gefecht setzten könnte.
Grüße
Mathias
Anzeige
leider keine ahnung...
08.10.2006 21:02:05
Thorsten_Z
...dafür habe ich leider nichts parat. Tut mir leid.
gruss Thorsten
AW: Schließfunktion
08.10.2006 21:00:41
Thorsten_Z
...vieleicht hilft dieser Code. probier mal.
CommandBars("Worksheet Menu Bar").Enabled = False
gruss Thorsten
AW: Schließfunktion
08.10.2006 21:23:42
Mathias
Hi Thorsten,
ne, das ist der Code für die Menüleiste. Das Kreuz oben rechts ist immer noch aktiv.
Gruß und Danke für deine Mühen
Mathias
Anzeige
AW: Schließfunktion
08.10.2006 21:05:35
Kurt 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = -1
End Sub

mfg Kurt
AW: Schließfunktion
08.10.2006 21:05:53
Kurt 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = -1
End Sub

mfg Kurt
AW: Schließfunktion
08.10.2006 21:22:08
Mathias
Hallo Kurt,
also das hat leider nicht gefunzt.
Ich möchte das Kreuz oben recht in dem sich öffnenden Workbook außer betrieb setzen.
Es kann von mir aus auch noch da stehen, nur eben nicht mehr funzen.
Grüße
Mathias
Anzeige
AW: Schließfunktion
08.10.2006 22:11:51
Echiko
hi,
versuch mal:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Gruss Echiko
(Rückmeldung wäre schön)
AW: Schließfunktion
08.10.2006 22:37:58
Mathias
Hallo Echiko,
also dieser Code funzt auch nicht.
Ich hab festgestellt, dass es eigentlich auch unerheblich ist, ob dieses Teil außer gefecht gesetzt ist, solange es in der Userform ausgeschalten bleibt.
Weiß jemand vielleicht den Code, wie ich zur Userform1 die Schließfunktion (Kreuz) desktiveren kann?
Gruß
Mathias
Anzeige
AW: Schließfunktion
08.10.2006 22:45:15
Echiko
hi nochmal,
damit sollte es gehen

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

Gruss Echiko
(Rückmeldung wäre schön)
hat geklappt Danke
08.10.2006 23:08:11
Mathias
Hallo an alle Helfer,
ich hab etwas gefunden.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "Bitte beenden Sie nur mit Schließen"
Cancel = -1
End Sub

Das klappt auf jeden Fall.
Gruß
Mathias
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum