Excel Beenden nur über Button nicht über menu

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 97
nach unten

Betrifft: Excel Beenden nur über Button nicht über menu
von: Apfelwurm
Geschrieben am: 03.05.2002 - 14:25:20

Hallo hätte eine frage an euch kann ich mit hilfe eines Makrobefehls das Steuerelement X rechts oben ausschlaten und die menu leiste damit keiner excel beenden kann auser über den eingefügten button?

Vielen Dank im voraus
MFG


nach oben   nach unten

Re: Excel Beenden nur über Button nicht über menu
von: Silvio
Geschrieben am: 04.05.2002 - 12:07:30

Bei mir funktioniert das hier:

Sub auto_open()
Sheets("Tabelle1").Select
Range("A1").Select
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = True
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
Toolbars(1).Visible = False
Toolbars(2).Visible = False
Toolbars(3).Visible = False
Toolbars(4).Visible = False
Toolbars(5).Visible = False
Toolbars(6).Visible = False
Toolbars(7).Visible = False
Toolbars(8).Visible = False
Toolbars(9).Visible = False
Toolbars(10).Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub

Sub auto_close()
Application.DisplayFullScreen = True
CommandBars("Worksheet Menu Bar").Enabled = True
Toolbars(1).Visible = True
Toolbars(2).Visible = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.Quit
End Sub

Jetzt nur noch einen Button mit dem Makro: auto_close()
bereitstellen!
Das Makro: auto_open() wird beim Start autom. ausgeführt

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel Beenden nur über Button nicht über menu"