Принудително записване на работна книга - Workbook_BeforeClose
Не бих посъветвал да използвате това, но с цел експериментиране и като демонстрация на ActiveWorkbook.
Можете да запишете работна книга, без да давате на потребителя опция „Да/Не“ със следния код:
Поставете това в модула ThisWorkbook…
| 1234567891011121314 | Private Sub Workbook_BeforeClose (Отказ като булев)Ако запазено = невярно, тогаваActiveWorkbook.SaveКрай АкоEnd Sub |
Това не работи за множество работни книги. За да може да работи с множество работни книги, ще трябва да поставите кода във файла personal.xls или да го накарате да премине през всички отворени работни книги.
