Отказ в сохранении при условии

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отказ в сохранении при условии (Макросы/Sub)

VIDEO56

Дата: Пятница, 07.08.2015, 10:25 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Доброй всем пятницы.
Прошу подсказать код макроса, который бы перед сохранением документа проверял заполнены ли ячейки, если нет, то выдавал бы сообщение "Заполните все необходимые ячейки". Ячейки в которых должны быть данные D11, D12, D14

К сообщению приложен файл: 1266766.xlsm (39.9 Kb)

Всем удачного дня!

Ответить

KSV

Дата: Пятница, 07.08.2015, 10:35 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     For Each c In [D11,D12,D14]
         If Len(c) = 0 Then MsgBox "Заполните все необходимые ячейки", vbExclamation: Cancel = True: Exit Sub
     Next
End Sub

[/vba]

К сообщению приложен файл: 5535040.xlsm (38.5 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Пятница, 07.08.2015, 10:40

Ответить

_Boroda_

Дата: Пятница, 07.08.2015, 10:42 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Сергей, а почему не Workbook_BeforeSave?
Надо же

Цитата VIDEO56, 07.08.2015 в 10:25, в сообщении № 1

перед сохранением документа проверял

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995