Forțați registrul de lucru pentru a salva - Workbook_BeforeClose
Nu aș sfătui să folosiți acest lucru, ci din motive de experimentare și ca demonstrație a ActiveWorkbook.
Puteți salva un registru de lucru fără a oferi utilizatorului opțiunea „Da / Nu” cu următorul cod:
Plasați acest lucru în modulul ThisWorkbook …
| 1234567891011121314 | Private Sub Workbook_BeforeClose (Anulați ca boolean)Dacă Salvat = Fals AtunciActiveWorkbook.SaveEnd IfSfârșitul Sub |
Acest lucru nu funcționează pentru mai multe registre de lucru. Pentru ca acesta să funcționeze cu mai multe registre de lucru, ar trebui să plasați codul în fișierul personal.xls sau să îl parcurgeți în toate registrele de lucru deschise.
