Макрос VBA Excel - не дает закрыть книгу пока выбранный диапазон ячеек имеет заливку(цвет)

Здравствуйте! Предлагаю вам написанный мной макрос VBA Excel.

Его задача помочь вам в работе с большими таблицами, когда вы имеете какую-то незавершенную/невыполненную задачу и не хотели бы, чтобы закрыли файл не доделав все.

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

Он включается при попытке закрыть файл, и проверяет наличие заливки определенным цветом в выбранном вами диапазоне и если таковая есть - то появляется сообщение. По умолчанию - красный цвет, но можно выбрать любой на ваш вкус.

Макрос реагирует на красный цвет - как для заливки сделанной в ручную так и для заливки сделанной с помощью условного форматирования.

В макросе указывается конкретный лист и конкретный диапазон для этого листа. Потому он работает даже если у вас активна другая вкладка где нет заливки. Т.е при закрытии файла макрос проверит тот самый лист который вы указали, и если там есть заливка - то он не даст закрыть файл.

Макрос не реагирует на заливку других цветов, а так же условное форматирование других цветов.

Важные мелочи:

-В файле - красная ячейка использует условное форматирование, выделяя красным в случае если значение будет больше 5.

-Макрос написан для версии Excel 2019. Потому может не работать на других версиях. Если столкнулись с таким - пишите в личные сообщения.

-Доработки файла/адаптация под вашу задачу - за дополнительную плату

-Для работы макроса необходимо включить работу макросов в настройках Excel. Прикрепил скриншот как это выглядит для Excel 2019.(клиентка для которой изначально писал этот макрос не могла его запустить именно из-за этого)

Ключевики:

Отмена закрытия файла Excel

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

Предупреждение при закрытии файла

Удобства для Excel

Отмена закрытия файла при наличии заливки