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

Menüleiste

Forumthread: Menüleiste

Menüleiste
03.05.2002 15:41:09
JOHNY
Hallo Leute !

Habe Folgendes Problem !

Es sollen einige Teile , sobald das Programm gestartet wird , in der Menüleiste nicht mehr Benutzbar sein !

Z.B in "Extras" ( Schutz , Makros , Optionen )

Bei meinem Beispiel muss ich alles Einzeln Eintragen.

Nun möchte ich wissen ob ich auch "Extras" mit einem Befehl ausschalten kann .
Es muss aber mit AUTO_OPEN Funktionieren.

( Herbert Deine E-Mail ging nicht konnte dich nicht erreichen )

MEINE EINTRAGUNGEN:

Sub AUTO_OPEN()

With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")

.Controls("Makro").Enabled = False
.Controls("Schutz").Enabled = False
.Controls("Add-In-Manager...").Enabled = False
.Controls("Anpassen...").Enabled = False
.Controls("Optionen...").Enabled = False
.Controls("Arbeitsmappe freigeben...").Enabled = False


End With

With Application.CommandBars("Worksheet Menu Bar").Controls("Fenster")

.Controls("Fixierung aufheben").Enabled = False

End With


End Sub


Sub AUTO_CLOSE()

With Application.CommandBars("Worksheet Menu Bar").Controls("Extras")

.Controls("Makro").Enabled = True
.Controls("Schutz").Enabled = True
.Controls("Add-In-Manager...").Enabled = True
.Controls("Anpassen...").Enabled = True
.Controls("Optionen...").Enabled = True
.Controls("Arbeitsmappe freigeben...").Enabled = True


End With

With Application.CommandBars("Worksheet Menu Bar").Controls("Fenster")

.Controls("Fixierung aufheben").Enabled = True

End With

DisplayAlerts = True
Application.EnableCancelKey = xlInterrupt

Workbooks.Close

End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menüleiste
03.05.2002 17:34:43
GraFri
Hallo

--------------------------------------------------------

Sub Menü_Extras()
'Blendet es ab
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Enabled = False
'Läßt es ganz verschwinden
'Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = False
End Sub
--------------------------------------------------------

mfg, GraFri

Anzeige
Re: Menüleiste
03.05.2002 20:04:06
Johny sagt Danke!!
Hallo GraFri !

Es Funktioniert Super .


Danke für Deine Bemühung,
hat mir sehr geholfen :-)

Johny

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige