< návrat zpět

MS Excel

Téma: pás karet (Ribbon) rss

Zaslal/a Anonym 19.11.2024 10:50

Zdravím, mám dotaz ohledně tlačítka. Jde mě o to, jestli jde nějak v pásu karet omezit tlačítko. Aby bylo možné použít, pouze pokud bude aktivní určitý list.
Např. tlačítko, které bude možné požít u listu Data, druhé třeba u listů Data + Doklad. Pak by teprve zpustilo přiřazené makro. Kdyby ještě k tomu bylo neaktivní tlačítko šedé, to už bych chtěl asi moc. Předem díky za radu

Zaslat odpověď >
elninoslov(19.11.2024 13:51)#057012
elninoslov
Dokážete si odtiaľto vybrať čo potrebujete?citovat
stejzi(19.11.2024 18:05)#057013
avatar
Tak to nevím, můžu se pokusit, jestli to pochopím.
Příloha: zip57013_test22.zip (12kB, staženo 2x)
citovat
elninoslov(19.11.2024 18:25)#057014
elninoslov
OK. Napíšte mi teraz presne, ktoré tlačítka majú byť aktívne na ktorom liste.
Očakávam takéto nejaké inštrukcie:
List ____ Tlačítka
..................
Plán ____ "Plán", "Tisk do PDF"
Data ____ "data", "Tisk do PDF"
Doklad __ "data", "data+doklad", "Tisk do PDF", "složka PDF"
Inak som tú origo prílohu zjednodušil do pochopiteľnejšej podoby (snáď). Tak by som obdobne urobil aj Vašu.
Příloha: zip57014_enabledisabletest1.zip (57kB, staženo 5x)
citovat
stejzi(19.11.2024 19:40)#057015
avatar
Plán - “tisk do PDF“, “složka PDF“, “Plán“
Data - “tisk do PDF“, “složka PDF“, “data“
doklad - “tisk do PDF“, “složka PDF“, “data“, “doklad“

díkycitovat
elninoslov(19.11.2024 22:51)#057016
elninoslov
Môžete sa s tým hrajkať
Příloha: zip57016_enable-disable-ribbon-button.zip (22kB, staženo 9x)
citovat
stejzi(20.11.2024 13:16)#057024
avatar
Funguje Vám to krásně. 1
Pokusil jsem se to použít v jiném souboru a nechce mě to zpřístupnit tlačítka. Co jsem kde udělal špatně. Nic mě už nenapadá, ale někde mám zádrhel. 7
Příloha: zip57024_pomoc.zip (46kB, staženo 4x)
citovat
elninoslov(20.11.2024 14:53)#057025
elninoslov
Chýba Vám predsa makro v module ThisWorkbook:
Option Explicit

Private Sub Workbook_Open()
CreateMyTag
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CreateMyTag
Call RefreshRibbon(Tag:=MyTag)
End Subcitovat
stejzi(20.11.2024 20:55)#057033
avatar
Měl jsem pocit, že jsem už prošel všechno. Ale je vidět, že mě to pořád nedocházelo. Asi únava. Dík za postrčení. 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje