Schliesskreuz und andere deaktivieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Schliesskreuz und andere deaktivieren von: Erich M.
Geschrieben am: 05.02.2005 16:37:44

Hallo EXCEL-Freunde,

habe im Forum vor einiger Zeit folgende Lösung erhalten:

Schliessen der EXCEL-Mappe nur per Schaltfläche:

in ein normales Modul die Deklaration:
Public beenden As Boolean

in die Routine deines Buttons:


Private Sub CommandButton1_Click()
beenden = True
ThisWorkbook.Close True
End Sub


In das Klassenmodul "diese Arbeitsmappe":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If beenden <> True Then Cancel = True
End Sub


Damit reagiert das Schliesskreuz nicht mehr. Nun würde ich das deaktivieren
gerne erweitern auf die danebenliegenden Buttons:
Fenster minimieren
Fenster wiederherstellen

Gibt es da auch eine Lösung?
Besten Dank für eine Hilfe!

mfg
Erich
http://www.toolex.de
Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Ulf
Geschrieben am: 05.02.2005 16:42:32

Was ist gemeint, das Systemmenü der Application oder das der Arbeitsmappe?

Ulf


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Erich M.
Geschrieben am: 05.02.2005 16:52:54

Hallo Ulf,

das der Arbeitsmappe.

mfg
Erich
http://www.toolex.de


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Ulf
Geschrieben am: 05.02.2005 16:57:23

Setz einfach den Mappenschutz(Struktur).

Ulf


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Erich M.
Geschrieben am: 05.02.2005 17:28:56

Hallo Ulf,

geht leider nicht; bräuchte eine VBA-Lösung, da die Datei eigene Menü- bzw. Symbolleisten hat
und das Menü wegen Mappenschutz "nicht existiert".

mfg
Erich
http://www.toolex.de


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Ulf
Geschrieben am: 05.02.2005 18:20:16

Was hindert dich, den Schutz per VBA zu setzen?

Ulf


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Erich M.
Geschrieben am: 05.02.2005 18:33:50

Hallo Ulf,

Ergebnis mit Macrorecorder:

Sub Makro1()
    ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub


So gemeint?

mfg
Erich
http://www.toolex.de


Bild


Betrifft: AW: Schliesskreuz und andere deaktivieren von: Ulf
Geschrieben am: 05.02.2005 18:36:30

Ja, ggf. Fenster zuvor maximieren und das Ganze in Private Sub Workbook_Open()
ausführen.

Ulf


Bild


Betrifft: DANKE - Ulf; o.T. von: Erich M.
Geschrieben am: 05.02.2005 18:58:40

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schliesskreuz und andere deaktivieren"