Worksheet Menu Bar
18.08.2005 16:07:57
Sören
ich habe folgendes skript zum ausblenden der Worksheet Menu Bar:
Private Sub Label1_Click()
Dim Cdb As CommandBar
Dim wb As Workbook 'Arbeitsmappe
Dim wsh As Worksheet 'Tabellenblätter
Const NameMeineMenueleiste As String = "Menue"
Call Commandbar_erstellen
'die sichtbaren CommandBars speichern und dann ausblenden
On Error Resume Next
n = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
ReDim Preserve CdbList(n)
CdbList(n) = Cdb.Name
n = n + 1
Cdb.Visible = False
End If
Next Cdb
'Status von Bearbeitungsleiste merken
Brbt = Application.DisplayFormulaBar
'Bearbeitungsleiste ausblenden
Application.DisplayFormulaBar = False
'Menüleiste ausblenden
Application.CommandBars("Worksheet Menu Bar").Enabled = False
'Eigene Menüleiste einblenden
Application.CommandBars(NameMeineMenueleiste).Visible = True
'Eigene Menüleiste schützen
Application.CommandBars(NameMeineMenueleiste).Protection = _
msoBarNoCustomize + msoBarNoMove + msoBarNoResize
End Sub
Ich möchte jetzt jedoch, dass nicht die komplette Menu Bar ausgeblendet wird sondern nur teile.
Es soll alles ausgeblendet bzw. deaktiviert werden bis auf folgende controls und menübefehle:
Datei
1.speichern unter...
2.Seite einrichten...
3.Druckbereich...
4.Seitenansicht...
5.Drucken...
6.Beenden
Ansicht
1.Normal
2.Seitenumbruchvorschau
3.Zoom
alles andere soll ausgeblendet bzw. deaktiviert werden.
wie mach ich da am besten?
gruß,
sören