VBA Excel. Запрет на закрытие файла Excel

Как защитить файл Excel от случайного закрытия с помощью кода VBA? Установка запрета на закрытие рабочей книги без ввода пароля.

Содержание

Запрет на закрытие файла Excel

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

Механизм защиты основан на обработке события Workbook_BeforeClose. Это событие автоматически запускается каждый раз, когда пользователь пытается закрыть книгу Excel. С помощью небольшого скрипта на языке VBA мы можем «перехватить» это действие и задать условие для его выполнения, в нашем случае — ввод правильного пароля. Если пароль неверный, процесс закрытия файла будет отменён.

Инструкция по установке защиты

Чтобы добавить в ваш файл функцию закрытия по паролю, следуйте этим простым шагам:

Откройте нужный файл Excel, нажмите сочетание клавиш Alt + F11. Откроется окно редактора Visual Basic for Applications.
В левой части окна редактора (в окне «Project — VBAProject») найдите и дважды щёлкните по объекту ThisWorkbook (ЭтаКнига). Это действие откроет модуль книги — окно для ввода кода, который будет применяться ко всей рабочей книге.
В открывшееся окно вставьте следующий код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim pass As String

pass = InputBox("Введите пароль для закрытия файла:")

If pass <> "123456" Then

MsgBox "Неверный пароль. Закрытие отменено.", vbCritical

Cancel = True

End If

End Sub

Чтобы ваш код работал, файл должен быть сохранён в формате «Книга Excel с поддержкой макросов (*.xlsm)».

Как это работает?

Давайте разберёмся в коде:

Private Sub Workbook_BeforeClose(Cancel As Boolean) — это объявление процедуры, которая выполняется перед закрытием книги. Параметр Cancel по умолчанию имеет значение False. Если ему присвоить значение True, процесс закрытия будет остановлен.
Dim pass As String — объявление переменной pass для хранения введенного пользователем пароля.
pass = InputBox("Введите пароль для закрытия файла:") — на экране появляется диалоговое окно с просьбой ввести пароль.
If pass <> "123456" Then — этот оператор проверяет, отличается ли введенный пароль от заданного (123456). Вы можете изменить «123456» на любой другой пароль.
MsgBox "Неверный пароль. Закрытие отменено.", vbCritical — если пароль неверный, пользователь увидит сообщение об ошибке.
Cancel = True — это ключевая строка. Она отменяет событие закрытия файла, если пароль был введён неправильно.

Закрытие защищённого файла

Теперь при любой попытке закрыть файл (через крестик, меню «Файл» -> «Закрыть» и т.д.) будет появляться окно для ввода пароля. Если ввести верный пароль («123456» в нашем примере) и нажать «ОК», файл закроется. В противном случае появится предупреждение, и книга останется открытой.

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

Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.