Makro k tlačítkům

[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

[Reklama]

[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

[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.

[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


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

to moc nechápu.

[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.

[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