Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Anzeige
Inhaltsverzeichnis

Excel Beenden nur über Button nicht über menu

Excel Beenden nur über Button nicht über menu
03.05.2002 14:25:20
Apfelwurm
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excel Beenden nur über Button nicht über menu
04.05.2002 12:07:30
Silvio
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

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige