AW: Zusatzmenüs ausblenden
29.07.2006 17:19:02
chris37170
Hallo Martin,
für das Excel Symbol kann ich es (noch) nicht sagen. Für verschiedende andere Punkte sind es folgende:
' Für die Standardmenüs wie Datei, Bearbeiten
Public ctrl as CommandBar
Private Sub Workbook_Open()
' Alle Menüs ausblenden
For Each ctrl In Application.CommandBars("Worksheet Menu Bar").Controls
If ctrl.Caption <> "&?" Then
ctrl.Visible = False ' Eingebaute Menues ein (True)- oder ausblenden (False)
End If
Next ctrl
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Alle Menüs einblenden
With Application
.CommandBars("Worksheet Menu Bar").Reset
end with
End Sub
' Für die Zusatzmenüs per rechter Maustaste
Public cBar As CommandBar
Public cTrl As CommandBarControl
Private Sub Workbook_Open()
Set cBar = Application.CommandBars("Cell")
With cBar
For Each cTrl In cBar.Controls
cTrl.Visible = False ' Eingebaute Menues ein (True)- oder ausblenden (False)
Next cTrl
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set cBar = Application.CommandBars("Cell")
cBar.Reset
End Sub
mfg
Christoph