Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

selbsterstellte Menüleiste

Forumthread: selbsterstellte Menüleiste

selbsterstellte Menüleiste
01.07.2007 12:19:00
Stefan
Hallo zusammen,
ich habe eine Excelanwendung erstellt mit eigener Menüleiste, d. h. von den klassischen Excelmenüleisten ist nichts zu sehen, damit nur die vorgegebenen Anwendungen ausgeführt werden können.
Am Ende (rechts) bei jeder Menüleiste ist aber dieser kleine schwarze Pfeil (für öffnen Kontextmenü), der ein anpassen der Menüleiste möglich machen würde und somit wieder nicht vorgesehene Icon in die Menüleiste geschoben werden können. Kann man eine Menüleiste ohne diesen Pfeil rechts erstellen bzw. diesen deaktiveren?
Für Eure Hilfe schon mal Danke im voraus.
Gruß
Stefan

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: selbsterstellte Menüleiste
01.07.2007 12:49:14
K.Rola
Hallo,

Sub Disable_Customize()
If Val(Application.Version) > 9 Then
Application.CommandBars.DisableCustomize = True
End If
End Sub


Gruß K.Rola

AW: selbsterstellte Menüleiste
01.07.2007 13:05:00
Nepumuk
Liebste K.Rola,
in xl2000 erzeugst du damit aber einen Fehler. Du sprichst eine Eigenschaft an, die es nicht gibt. Das merkt Excel beim kompilieren. Ich habe das mal so gelöst:
Sub Disable_Customize()
    Dim objBars As Object
    If Val(Application.Version) > 9 Then
        Set objBars = Application.CommandBars
        objBars.DisableCustomize = True
    End If
End Sub

Eine Objektvariable die nicht auf ein definiertes Objekt zeigt, kann nicht angemeckert werden, weil Excel beim kompilieren nicht weiß, ob es diese Eigenschaft überhaupt hat.
Gruß
Nepumuk

Anzeige
AW: selbsterstellte Menüleiste
01.07.2007 13:15:06
K.Rola
Hallo Nepumuk,
pfui über mir, du hast ja so Recht.
Gruß K.Rola

AW: selbsterstellte Menüleiste
01.07.2007 13:27:37
Stefan
Hallo,
schon mal Danke für Eure Hilfe.
noch einen schönen Sonntag
Stefan
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige