Перейти к содержимому

Как предотвратить сохранение, если определенная ячейка пуста в Excel?

Author: Kelly Last Modified: 2025-08-07

Представьте, что вы создали форму в Excel и поделились ею с коллегами. Вы хотите, чтобы они вводили свои имена в определенную ячейку для идентификации того, кто ввел информацию. Если ячейка остается пустой, вы хотите заблокировать возможность сохранения формы. В этом руководстве я покажу вам, как использовать макрос VBA для блокировки процесса сохранения, если указанная ячейка пуста в Excel.


arrow blue right bubbleПредотвращение сохранения, если определенная ячейка пуста в Excel

Чтобы предотвратить сохранение текущей рабочей книги, если определенная ячейка пуста в Excel, вы можете легко применить следующий макрос VBA.

Шаг 1: Откройте окно Microsoft Visual Basic for Applications, нажав клавиши Alt + F11 одновременно.

Шаг 2: В Обозревателе проектов разверните VBAProject (Имя вашей книги.xlsm) и Microsoft Excel Objects, затем дважды щелкните ThisWorkbook. См. скриншот:

A screenshot of the ThisWorkbook window in the VBA editor

Шаг 3: В открывшемся окне ThisWorkbook вставьте следующий макрос VBA:

Макрос VBA: Предотвращение сохранения, если определенная ячейка пуста

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook

xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)

If xWSh Is Nothing Then

  Set xWSh1 = xWShs.Add
  xWSh1.Name = xStrWSH
  xWSh1.Visible = xlSheetVeryHidden
  Cancel = False

Else

  If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
  Cancel = True
  MsgBox "Save cancelled"
  End If

End If

End Sub
Примечание:
1. В 26-й строке приведенного выше кода VBA "Sheet1" — это имя конкретного листа, а "A1" — это конкретная ячейка, и вы можете изменить их по своему усмотрению.
2. После того, как вы введете VBA в ThisWorkbook, вам следует сначала сохранить книгу. Затем вы сможете отправить файл с поддержкой макросов другим пользователям.

Теперь, если определенная ячейка пуста в текущей рабочей книге, при попытке сохранения появится диалоговое окно с предупреждением, которое сообщит вам «Сохранение отменено». См. следующий скриншот:

A screenshot of a warning dialog in Excel saying 'Save cancelled' when attempting to save with a blank cell


arrow blue right bubbleСвязанные статьи

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!