Menüleiste



Excel-Version: Office 97
nach unten

Betrifft: Menüleiste
von: JOHNY
Geschrieben am: 03.05.2002 - 15:41:09

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

nach oben   nach unten

Re: Menüleiste
von: GraFri
Geschrieben am: 03.05.2002 - 17:34:43

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


nach oben   nach unten

Re: Menüleiste
von: Johny sagt Danke!!
Geschrieben am: 03.05.2002 - 20:04:06

Hallo GraFri !

Es Funktioniert Super .


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

Johny

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zahlenformat UserForm"