Stránka 1 z 1

Makro k tlačítkům

Napsal: 08 úno 2012 14:31
od hureckej
Potřeboval bych přiřadit makro formulářovému tlačítku "A" - přesun z listu1 na list2, ale s tím, že okno formuláře se již na listu2 neobjeví a list bude uzamčen. Na listu2 pak makro pro tlačítko, které ukončí sešit a uloží změny. Díky

Re: Makro k tlačítkům

Napsal: 08 úno 2012 17:17
od cmuch
Tak pro to tlačítko A:

Kód: Vybrat vše

Unload Me
Sheets("List2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

A pro tl. na listu2

Kód: Vybrat vše

ActiveWorkbook.Save
Application.Quit

Re: Makro k tlačítkům

Napsal: 09 úno 2012 13:42
od hureckej
Mockrát děkuji. Chtěl jsem se ještě zeptat, zda je možné spustit soubor aplikace excel přímo s povolenými makry, i když jsou obecně zakázána a by se otevřel list1. Dále zda je možné určit pozici, kde se bude otevírat pole formuláře.

Re: Makro k tlačítkům

Napsal: 09 úno 2012 17:51
od cmuch
Myslím si, že pokud jsou makra zakázaná tak nemohou fungovat v žádném spuštěném sešitě.
Pokud v nějakém fungují a zněj aby se otevřel jiný sešit a v něm byly povoleny makra ikdyž jsou zakázaná tak snad takto, alespoň mě jde:

Kód: Vybrat vše

Workbooks.Open "C:\cesta k sešitu.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen
Sheets("list1").Select

hureckej píše: Dále zda je možné určit pozici, kde se bude otevírat pole formuláře

to moc nechápu.

Re: Makro k tlačítkům

Napsal: 09 úno 2012 21:57
od hureckej
Myslel jsem tím toto : jestliže tlačítkem vyvolám formulář VBA, zda lze zadat parametry pozice na listu sešitu, kde se má otevřít např. levý horní roh, na středu ap. Jinak díky za ten zbytek, je to přesně to, co jsem potřeboval. Ještě jsem se chtěl zeptat, jestli je možné zakázat zavření sešitu tím klasickým křížkem v pravém horním rohu.

Re: Makro k tlačítkům

Napsal: 10 úno 2012 09:02
od cmuch
Kotvení formuláře dost dobře nejde, jak již bylo někde na fóru zmíněno.
Zakázat zavření sešitu křížkem lze, ale sešit potom nenasilně nezavřete.
Můžete zkusit, do procedury BeforeClose vepište Cancel = True