Eintrag Blattreiter "Code anzeigen" ausblenden

Forumthread: Eintrag Blattreiter "Code anzeigen" ausblenden

13.08.2017 15:16:39

Kasimir

Hallo Leute!
Ich möchte etwas sicherlich ganz banales, für mich aber ein Problem, erreichen. Ich möchte, dass im Tabellenblattreiter der Eintrag Code anzeigen, der erscheint, wenn man den Reiter mit der rechten Maustaste anklickt, verschwindet. Nur kenne ich den VBA-Code dazu nicht. Kann mir da jemand behilflich sein?
Danke schon mal,
Kasimir

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

zu wenig Infos (warum)

13.08.2017 15:32:13

Matthias
AW: zu wenig Infos (warum)

13.08.2017 15:35:25

Kasimir
AW: zu wenig Infos (warum)

13.08.2017 16:28:29

Nepumuk
AW: zu wenig Infos (warum)

13.08.2017 17:00:13

Kasimir
AW: zu wenig Infos (warum)

13.08.2017 17:07:55

Nepumuk
AW: zu wenig Infos (warum)

13.08.2017 17:17:08

Kasimir

zu wenig Infos (warum)

13.08.2017 15:32:13

Matthias

Hallo
Evtl. reicht es schon das VBA-Projekt zu schützen.
Gruß Matthias

AW: zu wenig Infos (warum)

13.08.2017 15:35:25

Kasimir

Hallo Matthias!
Danke Dir für die Antwort. Das habe ich schon, wie auch einige andere Sachen (Alt F11 deaktiviert, komplette Ribbonleiste ausgeblendet, alles unter Datei ausgeblendet). Ich möchte halt nur noch diesen Eintrag verschwinden lassen.
Mfg,
Kasimir

AW: zu wenig Infos (warum)

13.08.2017 16:28:29

Nepumuk

Hallo Kasimir,
in Excel 2010 funktioniert es noch so:

Option Explicit

Public Sub aus()
    Dim objCommandBarButton As CommandBarButton
    Set objCommandBarButton = CommandBars("Ply").FindControl(ID:=1561)
    If Not objCommandBarButton Is Nothing Then
        objCommandBarButton.Visible = False
        Set objCommandBarButton = Nothing
    End If
End Sub

Public Sub ein()
    Dim objCommandBarButton As CommandBarButton
    Set objCommandBarButton = CommandBars("Ply").FindControl(ID:=1561)
    If Not objCommandBarButton Is Nothing Then
        objCommandBarButton.Visible = True
        Set objCommandBarButton = Nothing
    End If
End Sub

Ab Excel 2013 musst du das per XML machen:
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<contextMenus>
<contextMenu idMso="ContextMenuWorkbookPly">
<button idMso="ViewVisualBasicCode" visible="false"/>
</contextMenu>
</contextMenus>
</customUI>
Gruß
Nepumuk

AW: zu wenig Infos (warum)

13.08.2017 17:00:13

Kasimir

Hallo Nepumuk!
Danke Dir für Deine Antwort. Genau dass habe ich gesucht. Noch eine Frage zu Deinen beiden Codes. Stört das, wenn ich in die 2010-Datei den XML-Code eintrage, so dass wenn diese Datei später mal mit Excel 2013 geöffnet wird, der Eintrag deaktiviert bleibt?
Nochmal danke,
Kasimir

AW: zu wenig Infos (warum)

13.08.2017 17:07:55

Nepumuk

Hallo Kasimir,
so lange der Benutzer von Excel 2010 die Option "Fehler des Benutzeroberflächen-Add-Ins anzeigen" (Optionen - Erweitert - Allgemein) nicht aktiviert hat sollte nichts passieren.
Probiere es einfach mal aus.
Gruß
Nepumuk

AW: zu wenig Infos (warum)

13.08.2017 17:17:08

Kasimir

Hallo Nepumuk!
Danke Dir nochmal für die Antwort.
Wünsche Dir noch ein schönes Restwochenende,
Kasimir

Beliebteste Forumthreads (12 Monate)

Eintrag Blattreiter "Code anzeigen" ausblenden

Forumthread: Eintrag Blattreiter "Code anzeigen" ausblenden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread