Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige