Menueeintag deaktivieren

Ewald · 2014-10-08T23:50:47+00:00

Hallo, im Menue Start/Format/Ausblenden & Einblenden/ soll "Spalten einblenden" deaktiviert werden. Nur wie ? Gruß Ewald

Hallo Rene,
hatte gehofft, das du dich meldest, du kennst dich je bestens damit aus.
Nur wenn ich mir die ID-Liste ansehe, so sieht es aus als wenn man da garnicht dran kommt.
Es gibt noch "Ansicht und Sicherheit" , nur ab da kommt nichts mehr. Weder "AusBlenden & einblenden" und auch das nachfolgende Menue ist nicht mehr aufgeführt, weder mit Namen noch mit ID.
Auch sind noch zwei andere Fragen aufgetaucht.
Das Tastenkürzel Umschalt+Strg +"(" läßt sich mit

Application.OnKey "+^(()", ""

nicht ausschalten, kann aber auch falsch geschrieben sein.
und dann gibt es ja auch noch die Maus, wo wenn man etwas länger wartet, die ausgeblendete Spalte auch aufziehen kann.
Wenn man dies jetzt alles lösen kann, bliebe dann noch die Frage, ob das mit einem Makro machbar ist.
Du hälst zwar in deinem Workshop nichts davon, nur in diesem Fall müßte es so sein, da ja per Makro auch wieder alles zurückgestellt werden muß.
Meiner Meinung wäre es schon optimal dieses hinzubekommen, nur sind im Moment meinerseits noch zuviel Fragezeichen.
Gruß Ewald

Kannst Du. Einfach mal ausprobieren. Aber richtig schreiben (getEnabled), die Schreibweise ist sehr wichtig.
Du könntest den Befehl auch umlenken. Dann kannst Du entscheiden wann was geschehen soll.
RibbonX-Code:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="onLoad_93137" >

   <commands>
     <command idMso="ColumnsHide" onAction="onAction_Commands" />
     <command idMso="RowsHide" onAction="onAction_Commands" />
     <command idMso="ColumnsUnhide" onAction="onAction_Commands" />
     <command idMso="RowsUnhide" onAction="onAction_Commands" />
   </commands>

   <ribbon>

   </ribbon>
        
</customUI>



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15

VBA-Code:

Option Private Module
Option Explicit

Dim objRibbon As IRibbonUI


Public Sub onLoad_93137(ribbon As IRibbonUI)
    Set objRibbon = ribbon
End Sub

Public Sub onAction_Commands(controls As IRibbonControl, ByRef returnValue)

If Environ("USERNAME") = "Ewald" Then
   returnValue = False
Else
   returnValue = True
   MsgBox "Aktion nicht zugelassen", 64, "Hinweis"
End If

End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15

Arbeite einfach mal meinen RibbonX-Workshop von Anfang bis Ende durch. Der ist leicht verständlich und in deutscher Sprache. Da steht alles was es zu wissen gibt.

Forumthread: Menueeintag deaktivieren

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial