Макрос Excel, щоб запобігти закриттю книг

Бувають випадки, коли ви не хочете, щоб користувач закривав книгу Excel, не вводячи певну частину даних. У цих ситуаціях було б корисно заборонити користувачеві закрити книгу, доки не буде заповнена цільова клітинка (як показано тут). Ось тут і з’являється цей чудовий макрос.

Макрос Excel, щоб запобігти закриттю книг

Запобігайте закриттю, доки не буде заповнена певна клітинка.

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

Цей код ініціюється подією BeforeClose у книзі. Коли ви намагаєтеся закрити книгу, ця подія запускається, запускаючи код всередині. Цей макрос перевіряє, чи цільова клітинка (у цьому випадку клітинка C7) порожня. Якщо він порожній, процес закриття скасовується. Якщо C7 не порожній, робоча книга зберігається та закривається:

Приватна підпорядкована робоча книга_BeforeClose(Скасувати як логічне значення)
«Крок 1. Перевірте, чи клітинка C7 порожня
Якщо Листи("Аркуш1").Діапазон("C7").Значення = " Тоді
«Крок 2: якщо клітинка порожня, скасуйте закриття та повідомте про це користувача
    Скасувати = Правда
    MsgBox "Осередок C7 не може бути пустим"
«Крок 3. Якщо клітинка не порожня, збережіть її та закрийте
Інакше
    ActiveWorkbook.Close SaveChanges:=Правда
Кінець Якщо
Кінець суб

Крок 1 перевіряє, чи C7 порожній.

Якщо C7 порожній, крок 2 вступає в силу, скасовуючи процес закриття, передаючи значення True в логічне значення Cancel. Крок 2 також активує вікно повідомлення, яке сповіщає користувача про його або її дурість (ну, насправді це не так вже й суворо).

На кроці 3, якщо клітинка C7 не порожня, книга буде збережена та закрита.

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

Щоб реалізувати цей макрос, вам потрібно скопіювати та вставити його у вікно коду події 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 відображають список посилань навігації на панелі швидкого запуску ліворуч. Панель швидкого запуску відображає посилання на пропонований вміст сайту, наприклад списки, бібліотеки, сайти та сторінки публікації. Панель швидкого запуску містить два дуже важливі посилання: Посилання на весь вміст сайту: […]