PDA

Vollständige Version anzeigen : xml-Code


der_phanter
01.07.2015, 20:36
Hallo zusammen.

Ich habe ein einer Exceldatei ein eigenes Ribbon entwickelt. Ich habe mit einem xml-Code alle Standard-Ribbon ausgeblendet (Code: <ribbon startFromScratch="true"> ). Jetzt möchte ich über eine Schaltfläche in meinem erstellten Ribbon die anderen Standard-Ribbons mit dem Code "<ribbon startFromScratch="false"> wieder auftauchen lassen. Diese Schaltfläche sollte aber mit einem Passwort versehen sein, so das ich als "Admin" nur die Schaltflächen wieder auftauchen lassen kann und nicht die Kollegen, die mit der Datei arbeiten. Wie kann ich das lösen?

Gruß der_phanter

der_phanter
01.07.2015, 20:39
Sorry, ich sehe gerade das er die Codes nicht mit übernommen hat.
Also mit dem Code ribbon startFromScratch="true" habe ich die Schaltflächen ausgeblendet. Will sie mit dem selben Code (nur "false" am Ende) wieder auftauchen lassen.

der_phanter

mumpel
01.07.2015, 21:01
Hallo!

In diesem Fall darfst Du "startFromScratch" nicht nutzen bzw. nicht auf true setzen, da es dafür keine Rückruffunktion (Callback) gibt. Stattdessen die Standardtabs mit "getVisible" behandeln. Hier im Forum gibt es schon Beispielcode, musst mal ein wenig danach suchen.

Gruß, René

mumpel
01.07.2015, 21:17
Ein Beispiel.

RibbonX:
<pre style='border:thin solid #FF8000; padding:12px 24px; margin-left:12px; color:#000000'>&lt;customUI xmlns=<span style='color:#FF0000'>&quot;http://schemas.microsoft.com/office/2009/07/customui&quot;</span> onLoad=<span style='color:#FF0000'>&quot;DerPanther&quot;</span> &gt; &lt;ribbon&gt; &lt;tabs&gt; &lt;tab idMso=<span style='color:#FF0000'>&quot;TabHome&quot;</span> getVisible=<span style='color:#FF0000'>&quot;getVisible_ST&quot;</span> /&gt; &lt;tab idMso=<span style='color:#FF0000'>&quot;TabFormulas&quot;</span> getVisible=<span style='color:#FF0000'>&quot;getVisible_ST&quot;</span> /&gt; &lt;/tabs&gt; &lt;/ribbon&gt; &lt;/customUI&gt;<br><br><hr style='color: #FF8000; background-color:#FF8000; height:1px; border:none;' /><p style='font-size:9px; font-family: Verdana; text-align: left; '><a href='http://www.rholtz-office.de/vba-html' target='_blank'>VBA/HTML - CodeConverter f&uuml;r Office-Foren</a>, AddIn f&uuml;r Office 2002-2013 - in VBA geschrieben von <a href='http://www.office-loesung.de/viewprofile19265.php'>Lukas Mosimann</a>. Projektbetreuung:mumpel</p><p style='font-size:11px; font-weight:bold; color:#0000FF; font-family:Verdana; text-align:left;'>Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0</p></pre>

VBA-Code:
<pre style='border:thin solid #FF8000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Public</span> objRibbon <span style='color:#0000EE'>As</span> IRibbonUI <span style='color:#0000EE'>Public</span> <span style='color:#0000EE'>Sub</span> DerPanther(ribbon <span style='color:#0000EE'>As</span> IRibbonUI) <span style='color:#0000EE'>Set</span> objRibbon = ribbon <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span> <span style='color:#0000EE'>Public</span> <span style='color:#0000EE'>Sub</span> getVisible_ST(control <span style='color:#0000EE'>As</span> IRibbonControl, <span style='color:#0000EE'>ByRef</span> visible) <span style='color:#0000EE'>If</span> Environ(<span style='color:#FF0000'>&quot;USERNAME&quot;</span>) = <span style='color:#FF0000'>&quot;DerPanther&quot;</span> <span style='color:#0000EE'>Then</span> visible = <span style='color:#0000EE'>True</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span><br><br><hr style='color: #FF8000; background-color:#FF8000; height:1px; border:none;' /><p style='font-size:9px; font-family: Verdana; text-align: left; '><a href='http://www.rholtz-office.de/vba-html' target='_blank'>VBA/HTML - CodeConverter f&uuml;r Office-Foren</a>, AddIn f&uuml;r Office 2002-2013 - in VBA geschrieben von <a href='http://www.office-loesung.de/viewprofile19265.php'>Lukas Mosimann</a>. Projektbetreuung:mumpel</p><p style='font-size:11px; font-weight:bold; color:#0000FF; font-family:Verdana; text-align:left;'>Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0</p></pre>

der_phanter
01.07.2015, 21:59
Hallo mumpel.

Erst einmal vielen Dank für deine Beispiele!

Jetzt nur meine Frage: Wo soll ich die beiden Codes eingeben?
- Den xml-Code in mein schon bestehendes Verzeichnis oder ein neues Verzeichnis anlegen?
- Den vba-Code in ein bestehendes Modul, in ein neues Modul oder in "Diese Arbeitsmappe"?

Weiß grad nicht weiter.

der_phanter

mumpel
02.07.2015, 04:16
Du musst nur die erforderlichen Codezeilen übernehmen (den vorhandenen Code damit ergänzen).