Макрос Excel для збереження книги перед закриттям

Представлений тут макрос є відмінним способом захистити користувачів від випадкового закриття файлу перед збереженням. Після впровадження цей макрос гарантує, що Excel автоматично зберігає книгу перед її закриттям.

Зазвичай Excel попереджає користувачів, які намагаються закрити незбережену книгу, надаючи їм можливість зберегти перед закриттям. Однак багато користувачів можуть пропустити попередження і ненавмисно натиснути Ні, вказуючи Excel закрити без збереження. За допомогою цього макросу ви захищаєтеся від цього, автоматично зберігаючи перед закриттям.

Як працює макрос

Код ініціюється подією BeforeClose у книзі. Коли ви намагаєтеся закрити книгу, ця подія запускається, запускаючи код всередині. Суть коду проста — він запитує користувачів, чи хочуть вони закрити книгу. Потім макрос визначає, чи натиснув користувач ОК чи Скасувати.

Макрос Excel для збереження книги перед закриттям

Повідомлення, яке ви бачите, коли намагаєтеся закрити книгу.

Оцінка виконується за допомогою оператора Select Case. Оператор Select Case є альтернативою оператору If-Then-Else, що дозволяє виконувати перевірку умов у ваших макросах. Основна конструкція оператора Select Case проста:

Виберіть Case 
Випадок Є = 
       
Випадок Is=
       
Випадок Is=
       
Вибір кінця

За допомогою оператора Select Case можна виконувати багато умовних перевірок. У цьому випадку ви просто перевіряєте OK або Cancel. Подивіться на код:

Приватна підпорядкована робоча книга_BeforeClose(Скасувати як логічне значення)
«Крок 1: активуйте вікно повідомлення та почніть перевірку
    Виберіть Case MsgBox("Зберегти та закрити?", vbOKCancel)
«Крок 2: натиснуто кнопку скасування, тому скасуйте закриття
    Випадок є = vbCancel
    Скасувати = Правда
«Крок 3: натиснуто кнопку OK, тому збережіть книгу та закрийте її
    Випадок Є = vbOK
    ActiveWorkbook.Save
«Крок 4. Закрийте свою заяву Select Case
Вибір кінця
Кінець суб

На кроці 1 ви активуєте вікно повідомлення як перевірку умови для оператора Select Case. Ви використовуєте аргумент vbOKCancel, щоб переконатися, що кнопки OK і Cancel представлені як варіанти.

На кроці 2, якщо користувач натиснув кнопку «Скасувати» у вікні повідомлення, макрос вказує Excel скасувати подію Workbook_Close, передавши True у логічне значення «Скасувати».

Якщо користувач натиснув кнопку OK у вікні повідомлення, крок 3 вступить в силу. Тут ви вказуєте Excel зберегти книгу. І оскільки ви не встановили для параметра Cancel Boolean значення True, Excel продовжує закриття.

На кроці 4 ви просто закриваєте оператор Select Case. Кожен раз, коли ви створюєте екземпляр Select Case, ви повинні закрити його за допомогою відповідного End Select.

Як використовувати макрос

Щоб реалізувати цей макрос, вам потрібно скопіювати та вставити його у вікно коду події Workbook_BeforeClose. Розміщення макросу там дозволяє йому запускатися щоразу, коли ви намагаєтеся закрити книгу:

Активуйте редактор Visual Basic, натиснувши Alt+F11.

У вікні проекту знайдіть назву проекту/книги та клацніть знак плюса біля нього, щоб побачити всі аркуші.

Натисніть Цей зошит.

У спадному списку «Подія» виберіть подію «До закриття».

Введіть або вставте код у щойно створений модуль.

Макрос Excel для збереження книги перед закриттям

Введіть свій код у подію Workbook BeforeClose.

Leave a Comment

Як спілкуватися в чаті в Outlook Web App

Як спілкуватися в чаті в Outlook Web App

Досліджуйте, як ефективно спілкуватися в чаті з колегами в Outlook Web App. Дізнайтеся про покрокову інструкцію та нові можливості для підвищення продуктивності.

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows. Microsoft Word відкриває файли в режимі лише для читання, що робить неможливим їх редагування? Не хвилюйтеся, методи наведено нижче

Як виправити неправильний друк документів Microsoft Word

Як виправити неправильний друк документів Microsoft Word

Як виправити помилки під час друку неправильних документів Microsoft Word Помилки під час друку документів Word зі зміненими шрифтами, безладними абзацами, відсутнім текстом або втраченим вмістом є досить поширеними. Однак не варто

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Якщо ви використовували перо або маркер для малювання на слайдах PowerPoint під час презентації, ви можете зберегти малюнки для наступної презентації або стерти їх, щоб наступного разу, коли ви показуватимете їх, розпочали з чистих слайдів PowerPoint. Дотримуйтесь цих інструкцій, щоб стерти малюнки пером і маркером: Стирання рядків на одній з […]

Вміст бібліотеки стилів у SharePoint 2010

Вміст бібліотеки стилів у SharePoint 2010

Бібліотека стилів містить файли CSS, файли мови розширюваної мови таблиць стилів (XSL) та зображення, які використовуються попередньо визначеними основними сторінками, макетами сторінок та елементами керування в SharePoint 2010. Щоб знайти файли CSS у бібліотеці стилів сайту видавництва: виберіть «Дії сайту»→ «Перегляд». Весь вміст сайту. З’являється вміст сайту. Бібліотека Style знаходиться в […]

Форматуйте числа в тисячах і мільйонах у звітах Excel

Форматуйте числа в тисячах і мільйонах у звітах Excel

Не перевантажуйте аудиторію гігантськими цифрами. У Microsoft Excel ви можете покращити читабельність своїх інформаційних панелей і звітів, відформатувавши числа, щоб вони відображалися в тисячах або мільйонах.

Як ділитися сайтами SharePoint і слідкувати за ними

Як ділитися сайтами SharePoint і слідкувати за ними

Дізнайтеся, як використовувати інструменти соціальних мереж SharePoint, які дозволяють особам і групам спілкуватися, співпрацювати, обмінюватися інформацією та спілкуватися.

Як перетворити дати в юліанські формати в Excel

Як перетворити дати в юліанські формати в Excel

Юліанські дати часто використовуються у виробничих середовищах як мітка часу та швидкий довідник для номера партії. Цей тип кодування дати дозволяє роздрібним продавцям, споживачам та агентам з обслуговування визначити, коли був виготовлений продукт, а отже, і вік продукту. Юліанські дати також використовуються в програмуванні, військовій справі та астрономії. Інший […]

Як створити веб-програму Access

Як створити веб-програму Access

Ви можете створити веб-програму в Access 2016. Так що ж таке веб-програма? Ну, веб означає, що він онлайн, а додаток — це просто скорочення від «додаток». Користувацька веб-програма — це онлайн-додаток для баз даних, доступ до якого здійснюється з хмари за допомогою браузера. Ви створюєте та підтримуєте веб-програму у настільній версії […]

Панель швидкого запуску в SharePoint 2010

Панель швидкого запуску в SharePoint 2010

Більшість сторінок у SharePoint 2010 відображають список посилань навігації на панелі швидкого запуску ліворуч. Панель швидкого запуску відображає посилання на пропонований вміст сайту, наприклад списки, бібліотеки, сайти та сторінки публікації. Панель швидкого запуску містить два дуже важливі посилання: Посилання на весь вміст сайту: […]