Доброй всем пятницы. Прошу подсказать код макроса, который бы перед сохранением документа проверял заполнены ли ячейки, если нет, то выдавал бы сообщение "Заполните все необходимые ячейки". Ячейки в которых должны быть данные D11, D12, D14
Доброй всем пятницы. Прошу подсказать код макроса, который бы перед сохранением документа проверял заполнены ли ячейки, если нет, то выдавал бы сообщение "Заполните все необходимые ячейки". Ячейки в которых должны быть данные D11, D12, D14VIDEO56
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]
[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