Priversti išsaugoti darbaknygę - Workbook_BeforeClose
Aš nepatarčiau to naudoti, bet eksperimentuoti ir kaip „ActiveWorkbook“ demonstravimas.
Galite įrašyti darbaknygę, nesuteikdami vartotojui parinkties „Taip/Ne“ su šiuo kodu:
Įdėkite tai į „ThisWorkbook“ modulį …
| 1234567891011121314 | Privati antrinė darbo knyga_BeforeClose (Atšaukti kaip loginis)Jei išsaugota = klaidingaActiveWorkbook.SavePabaiga JeiPabaiga Sub |
Tai netinka kelioms darbo knygoms. Kad jis veiktų su keliomis darbaknygėmis, turite įdėti kodą į failą personal.xls arba perkelti jį į visas atidarytas darbaknyges.
