Herbers Excel-Forum - das Archiv

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

Excel-Beispiele zum Thema "Excel Beenden nur über Button nicht über menu"
Alle Arbeitsmappen schließen bzw. Excel beenden Windows beenden
Makro mit Excape-Taste ohne Fehlermeldung beenden Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen
Notepad aufrufen und Routine nach Beenden fortsetzen Zeilen bedingt durch SpinButton verschieben
Maximalwert eines SpinButtons nach Zellwert festlegen Auf UserForm-CommandButton-Klick eine Internetseite aufrufen
Zelleintrag durch OptionButton-Betätigung ein- und ausschalten Zellwerte über SpinButton und ScrollBar hochzählen