Примусово зберегти книгу - Workbook_BeforeClose
Я б не радив використовувати це, але заради експериментів і для демонстрації ActiveWorkbook.
Ви можете зберегти книгу, не надаючи користувачеві опції "Так/Ні" з таким кодом:
Помістіть це в модуль ThisWorkbook…
| 1234567891011121314 | Private Sub Workbook_BeforeClose (Скасувати як логічне значення)Якщо збережено = хибнеActiveWorkbook.SaveЗакінчити ЯкщоEnd Sub |
Це не працює для кількох робочих книг. Щоб змусити його працювати з кількома книгами, вам потрібно розмістити код у файлі personal.xls або переглянути всі відкриті книги.
