добавить, чтобы блокировались заполненные ячейки. При этом сейчас включена блокировка листа.
Макрос отсюда: http://www.excelworld.ru/forum/2-40044-1
Будет работать? Пока не получается адаптировать
Какой именно? Этот? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A1048576")) Is Nothing Then If Target.Count > 1 Then Exit Sub 'вот тута копипаст может подвести, _ поэтому нужен файл (наверное) If Target <> "" Then ActiveSheet.Unprotect Password:="123" Target.Locked = True ActiveSheet.Protect Password:="123" End If End If End Sub
Я скачал файл, который там приложен и взял оттуда
И что не получается?
Нет. При попытке изменить заполненную ячейку выдает какое-то предупреждение, но изменить её можно
Нужно заполненные заблокировать отдельно. Макрос блокирует только те, которые сам обработал.
Ааа, понял. Спасибо, попробую.
Игорь, твою репутацию увеличил @Al@. Репутация - 742 Респект от Excel Hacks
Доброе утро! При заполнении новых ячеек открывается вот такое окно
Обсуждают сегодня