Vynutit uložení sešitu - Workbook_BeforeClose
Nedoporučoval bych to používat, ale kvůli experimentování a jako ukázka ActiveWorkbooku. Uložit:
Sešit můžete uložit, aniž byste uživateli dali možnost „Ano/Ne“ s následujícím kódem:
Umístěte to do modulu ThisWorkbook…
| 1234567891011121314 | Soukromý dílčí sešit_BeforeClose (Zrušit jako booleovský)Pokud je uloženo = False PakActiveWorkbook.SaveKonec IfEnd Sub |
To nefunguje pro více sešitů. Aby to fungovalo s více sešity, musíte kód umístit do souboru personal.xls nebo jej nechat procházet všemi otevřenými sešity.
