Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zusatzmenüs ausblenden

Forumthread: Zusatzmenüs ausblenden

Zusatzmenüs ausblenden
29.07.2006 16:38:48
Martin
Hallo!
wenn man in einer Tabelle die recht Maustaste klickt erscheint ein Zusatzmenü. Das gleiche gilt wenn man das Excel-Symbol links neben der Menülesite anklickt. Gibt es eine Möglichkeit das Einblenden dieser beiden Zusatzmenüs zu verhindern. Beim Schliessen der Datei soll das Ganze rückgängig gemacht werden
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: Zusatzmenüs ausblenden
Orakel
Private Sub Workbook_Open()
    Application.CommandBars("Cell").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Cell").Enabled = True
End Sub
Anzeige
Perfekt!
29.07.2006 17:49:53
Martin
Klappt Super
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige