Привет, у меня есть таблица Excel, и я много макросов пытался накидать, но проблема всегда бывает в том, что после ввода значения, блокируется ячейка, но и следом блокируется ячейка ниже, т.к он переходит к нижней ячейки и она слетает на право, следовательно пустая ячейка тоже блокируется. И можно ли сделать так, чтобы когда пишешь в ячейки. а потом хочешь изменить ее, то писалось бы - "Обратись к менеджеру, либо к ответственному " Но не выдавало окошка для ввода пароля.
Скидываю имеющийся макрос, и скидываю файл, блокироваться ячейки должны только под ячейкой" Комментарий вечернего дежурного " тоесть диапазон P3:P141414 И есть ли возможность поставить под постоянную защиту ячеек в которых написано, что именно надо делать дежурному(выделены цветом) и при этом, чтобы не мешалу макросу делать свою работу.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("P3:P97")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target <> "" Then ActiveSheet.Unprotect Password:="5592" Target.Locked = True ActiveSheet.Protect Password:="5592" End If End If End Sub
[/vba]
Привет, у меня есть таблица Excel, и я много макросов пытался накидать, но проблема всегда бывает в том, что после ввода значения, блокируется ячейка, но и следом блокируется ячейка ниже, т.к он переходит к нижней ячейки и она слетает на право, следовательно пустая ячейка тоже блокируется. И можно ли сделать так, чтобы когда пишешь в ячейки. а потом хочешь изменить ее, то писалось бы - "Обратись к менеджеру, либо к ответственному " Но не выдавало окошка для ввода пароля.
Скидываю имеющийся макрос, и скидываю файл, блокироваться ячейки должны только под ячейкой" Комментарий вечернего дежурного " тоесть диапазон P3:P141414 И есть ли возможность поставить под постоянную защиту ячеек в которых написано, что именно надо делать дежурному(выделены цветом) и при этом, чтобы не мешалу макросу делать свою работу.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("P3:P97")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target <> "" Then ActiveSheet.Unprotect Password:="5592" Target.Locked = True ActiveSheet.Protect Password:="5592" End If End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
