Excel - Panel nástrojov (toolbar) iba pre určitý zošit

Makrá, VBA kód - príklady, kúsky kódu

Excel - Panel nástrojov (toolbar) iba pre určitý zošit

Poslaťod Palo-admin » 02.09.2009, 09:20

Zdravím,
vytvořil sem si sešit (soubor) který obsahuje nějaké makro. Ke spuštění makra sem si vytvořil vlastní panel nástrojů, kde jsem jsem založil tlašítko, které spouští to konkténí makro.
Můj dotaz je jak udělat to aby se mi tento panel zobrazoval pouze v případě že otevřu konkrétní sešit a jinak se mi třeba při založení nového sešitu neukazoval.
Předem díky


Predpokladám, že ide o Office 2003:
Príklad pre vopred vytvorený test toolbar (panel nástrojov) xTlbName = "MyTestToolbar"

Zobraziť:
Kód: Vybrať všetko
Application.CommandBars("MyTestToolbar").Visible = true
    'ak chcem aj umiestniť na konkr. pozíciu
    CommandBars(xTlbName).Position = msoBarTop
    CommandBars(xTlbName).Top = 0
    CommandBars(xTlbName).Left = 0


Skryť:
Kód: Vybrať všetko
Application.CommandBars("MyTestToolbar").Visible = False
    'ak chcem následne aj zmazať
    Application.CommandBars(xTlbName).Delete


Spustenie funkcií na skrytie/zobrazenie volať vo funkciách Workbook_Open a Workbook_BeforeClose vytvorených nad objektom "ThisWorkbook" :
Kód: Vybrať všetko

Private Sub Workbook_Open()
         Call CmdBarr_ForSheet_ShowHide("MyTestToolbar", True)
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
         Call CmdBarr_ForSheet_ShowHide("MyTestToolbar", False)
End Sub


Príklad: http://www.pc-prog.eu/phpBB3/images/xMy ... voreni.xls
Palo
Palo-admin
Administrátor stránky
 
Príspevky: 473
Registrovaný: 18.07.2008, 16:43
Udelené poďakovania: 6 krát
Prijaté poďakovania: 63 krát

Späť na MS Office VBA - Visual Basic for Applications

Kto je on-line

Užívatelia prezerajúci fórum: Žiadny registrovaný užívateľ nie je prítomný a 1 hosť

cron