Schliesskreuz und andere deaktivieren
05.02.2005 16:37:44
Erich
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