Модератор: Naeel Maqsudov
Код: Выделить всё
With worksheets("Лист1")
..................................
.cells (при работе с ячейками)
..................................
End withЭто не вместо, а вместе с запретом. Дело в том, что внесённые данные у меня построчно защищаются. А поскольку последнюю строку можно в данном случае "недозаполнить", то после срабатывания "защищающего" макроса дальнейшее заполнение документа станет невозможным. Для этого перед срабатыванием этого макроса и нужна проверка. Сейчас попробовал код в отдельный модуль поместить, вроде работает." писал(а):Ведь это уже не запрет ввода, а проверка уже осуществленных изменений на листе
Код: Выделить всё
Private Sub Workbook_BeforeClose(Cancel As Boolean)
lastrow = Worksheets("Лист1").Cells.SpecialCells(xlLastCell).Row
.............................................................................................
осуществляем проверку наличия данных в строке lastrow
if есть пустые then
msgbox "Заполните данные в последней строке"
Cancel = True
Else: msgbox "Спасибо за ответственный подход к заполнению"
Cancel = False
End If
..........................................................................................
End sub
Спасибо за совет, я кстати, подумывал над этим. Правда, в данном проекте у меня уже применяется условное форматирование (сделал его ещё до того, как vba стал изучать)." писал(а):Лучше не выводить с помощью MsgBox сообщений о необходимости заполнения
обязательных ячеек, а менять цвет фона (.interior.color) ячеек которые должны быть заполнены при текущей проверке на оттенок красного.
Правда, по количеству просмотров топика, Irochkу вряд ли догоним. Уж больно название топика трогательное. Сам бы обязательно помог, если бы знал как." писал(а):Идем на рекорд самого длинного топика
вообще убрать, ибо после пары таких сообщений, юзер задумается об убийстве" писал(а):Else: msgbox "Спасибо за ответственный подход к заполнению"
Я хотела написать "Спасибо за ответственный подход к заполнению, вам все равно деваться было некуда" Aent, научите, пожалуйстаЕсли уж вы так хотите вывести текст - выводите его в строке состояния
Код: Выделить всё
Application.StatusBar = "Спасибо!"Код: Выделить всё
Application.Caption = "Привет!"Код: Выделить всё
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = Empty
End SubЕсли ваши пользователи её не замечают и если у вас есть нескроллируемая область" писал(а):строка состояния в глаза гораздо меньше на себя внимания обращает.
)Код: Выделить всё
Private Sub Worksheet_Change(ByVal Target As Range)
Application.StatusBar = "Обязательно заполните дату, наименование организации, адрес, телефон!"
End Sub