MS Excel

ja by som to riesil tym sposobom ze do eventu "pri skonceni" by aktualny subor zavrel bez save a potom ho otvoril zas a skryl by tam sheete a save

... zavretie dokumentu nezatvara excel :)

edit: teraz ma napadlo ked sa makro bude nachadzat v tom subore tak nebude pokracovat .... takze makro sa musi nachzadzat v Add-insecitovat

@Paloo:teraz ma napadlo ked sa makro bude nachadzat v tom subore tak nebude pokracovat
To som si tiež myslel, ale urobil som pokus:
1. V evente BeforeClose nastavím listy ako skyté. Zároveň je v ňom inštrukcia, že má uložiť zmeny.
2. Z eventu AfterSave volám cez Application.Ontime s odkladom 15 sekúnd makro (v tom samom súbore), ktoré znovu nastavuje dané listy ako viditeľné.

Súbor som manuálne uložil a hneď zavrel. 15 sekúnd rozhodne neuplynulo. Na moje prekvapenie sa súbor po 15 sekundách otvoril - Excel počkal 15 sekúnd a spustil makro z medzitým už zavretého súboru...

Add in pre tento prípad nechcem, mám na to dobré dôvody.

@marjankaj: tak, ako píšeš, to samozrejme ide. Má to ale háčik: chcel som, aby listy zostali po uložení viditeľné.
Ide o to, že potrebujem užívateľa donútiť povoliť makrá a sprístupniť listy len v prípade, že makrá sú povolené (súbor bude umiestnený na zdieľanom disku a budú k nemu mať prístup rôzni užívatelia). Pokiaľ to urobím cez BeforeSave, tak sa listy skryjú i vtedy, keď si užívateľ bude priebežne ukladať rozpracovanú prácu, súbor teda nechce zavrieť.
Nakoniec som ale použil BeforeSave a do kódu pridal inštrukciu, ktorá zobrazí tlačítko s makrom, ktoré umožní opätovné zobrazenie listov skrytých počas udalosti BeforeSave. Po kliknutí na tlačítko sa zobrazia dané listy a tlačítko samotné sa skryje. Užívateľ teda bude musieť občas kliknúť na tlačítko, nie som z riešenia úplne happy, ale na nič lepšie som neprišiel citovat

@kp57
...a to som pritom bol sám k riešeniu tak blízko . Presne ako píšeš, díky moc. Funguje to:Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheet1.Visible = xlSheetVisible
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Visible = xlSheetVeryHidden
End Subcitovat

@marjankaj
mal som včera opäť mentálny blok. Rozsvietilo sa mi až po príspevku kp57citovat

to nevyskúšam, asi to ale fungovať bude, mám ale za to, že na konci nemá byť Application.EnableEvents = False ale True...citovat