habe eine frage zufolgendem Code
Private Sub Workbook_Open()
' erstellt von Hajo.Ziplies@web.de 29.08.03
' http://home.media-n.de/ziplies/
'Application.DisplayFullScreen = Not Application.DisplayFullScreen
'Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen") _
.Enabled
'Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars(" _
Worksheet Menu Bar").Enabled
'ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
Application.ScreenUpdating = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False
Application.DisplayScrollBars = False
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
Application.ScreenUpdating = True
Dim cb As CommandBar
Dim CBC As CommandBarButton
Dim I%
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Menüleiste", _
temporary:=True, Position:=msoBarTop)
' Oben Position:=msoBarTop
' Rechts Position:=msoBarRight
' Links Position:=msomsoBarLeft
' unten Position:=msoBarBottom
On Error GoTo 0
If Application.CommandBars("Menüleiste").Visible = False Then '
cb.Visible = True
' cb.Left = 10
' cb.Top = 150
For I = 1 To 15
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 50 ' Breite der Schalter
' .Style = msoButtonCaption ' Text auf Schaltfläche ohne Icon
.Style = msoButtonIconAndCaption ' Text und Icon
' Text Waagerecht für Links und Rechts
' .Style = msoButtonWrapCaption
Select Case I
Case 1
.FaceId = 67 ' Icon vor Beschriftung
.Caption = "BewDat"
.OnAction = "Bewohner"
.TooltipText = "Bewohner anlegen"
Case 2
.Caption = "Ent."
.OnAction = "Entlader"
.TooltipText = "Entlader einfügen"
Case 3
.Caption = "LPM"
.OnAction = "LPM"
.TooltipText = "LPM einfügen"
Case 4
.Caption = "Bel."
.OnAction = "Belader"
.TooltipText = "Belader einfügen"
Case 5
.Caption = "PTS"
.OnAction = "PTS"
.TooltipText = "PTS Einfügen"
Case 6
.BeginGroup = True 'neue Gruppe Hinweis Christoph Dümmen
.Caption = "KTS"
.OnAction = "Gebindetransport"
.TooltipText = "Gebindetransport einfügen"
Case 7
.Caption = "S.S."
.OnAction = "SS"
.TooltipText = "Schalt- und Steuerausrüstung einfügen"
Case 8
.Caption = "Aus."
.OnAction = "Auspacker"
.TooltipText = "Auspacker einfügen"
Case 9
.Caption = "Ein."
.OnAction = "Einpacker"
.TooltipText = "Einpacker einfügen"
Case 10
.Caption = "ET60.1"
.OnAction = "ET601"
.TooltipText = "ET 60.1 einfügen"
Case 11
.Caption = "ET 85"
.OnAction = "ET85"
.TooltipText = "ET 85 einfügen"
' Schalter nicht ausführbar
.Enabled = False
Case 12
.Caption = "Kopfpa."
.OnAction = "Kopfpalette"
.TooltipText = "Kopfpalettenaufleger einfügen"
Case 13
.Caption = "NGA"
.OnAction = "NGA"
.TooltipText = "Neuglasabheber einfügen"
Case 14
.Caption = "NGS"
.OnAction = "NGS"
.TooltipText = "Neuglasabschieber einfügen"
Case 15
.Caption = "Zu."
.OnAction = "Zukauf"
.TooltipText = "Zukauf einfügen"
End Select
End With
Next I
End If
Application.ScreenUpdating = True
Passwort.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' erstellt von Hajo.Ziplies@web.de 29.08.03
' http://home.media-n.de/ziplies/
'Application.DisplayFullScreen = Not Application.DisplayFullScreen
'Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen") _
.Enabled
'Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars(" _
Worksheet Menu Bar").Enabled
'ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
Application.ScreenUpdating = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
Application.DisplayScrollBars = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Cell").Enabled = True
Application.ScreenUpdating = True
Sheets("Übersicht").ScrollArea = ""
On Error Resume Next
Application.CommandBars("Menüleiste").Delete
End Sub
Ist eineSuper Sachen wie ich finde !!! Dickes LOB
Nunmeine Frage, wenn die Menüleiste eingeblendetist wird rechts (am Ende) das Dropdown feld zum Anzeigen Aller Menüleisten in Excel eingeblendet, besteht die Möglichkeit das auch aus zu blenden,so das der Anwender keine Möglichkeit hat, die Menüleisten zu aktivieren?
Ichhoffe ichhabe mich einigermaßen verständlichausgedrückt.
Gruß und Dank Holger