Buộc lưu sổ làm việc - Workbook_BeforeClose
Tôi không khuyên bạn nên sử dụng cái này, nhưng vì mục đích thử nghiệm và như một minh chứng của ActiveWorkbook. Lưu:
Bạn có thể Lưu sổ làm việc mà không cần cung cấp cho người dùng tùy chọn “Có / Không” với mã sau:
Đặt cái này vào mô-đun ThisWorkbook…
| 1234567891011121314 | Private Sub Workbook_BeforeClose (Cancel As Boolean)If Saved = False ThenActiveWorkbook.SaveKết thúc nếuKết thúc Sub |
Điều này không hoạt động với nhiều sổ làm việc. Để làm cho nó hoạt động với nhiều sổ làm việc, bạn cần đặt mã vào tệp cá nhân.xls hoặc để mã lặp qua tất cả các sổ làm việc đang mở.
