Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » k_in_q
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Блокировка строки, если в ячейке стоит "ОК", как видоизменить макрос, чтобы при вставке слова "ОК" или "ВЫДАНО" блокировалась вся строка
 
#
25.11.2014 16:17:56
"Then" не хватало
но почему-то блокирует весь лист (
 
Перейти    
Блокировка строки, если в ячейке стоит "ОК", как видоизменить макрос, чтобы при вставке слова "ОК" или "ВЫДАНО" блокировалась вся строка
 
#
25.11.2014 16:10:32
Ура, всем большое спасибо!!! :)
Вот как:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:F5")) Is Nothing Then Exit Sub
If Target.Value = "OK" Then
   ActiveSheet.Unprotect
   Target.Rows.Locked = True
   ActiveSheet.Protect
End If
End Sub
Изменено: k_in_q - 25.11.2014 16:14:10
 
Перейти    
Блокировка строки, если в ячейке стоит "ОК", как видоизменить макрос, чтобы при вставке слова "ОК" или "ВЫДАНО" блокировалась вся строка
 
#
25.11.2014 15:46:26
Вот:
Код
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Count > 1 Then Exit Sub 
ActiveSheet.Unprotect 
Target.Locked = True 
ActiveSheet.Protect 
End Sub  
этот макрос блокирует только ячейку, но не строку и без условия.
Изменено: k_in_q - 25.11.2014 23:27:08
 
Перейти    
Блокировка строки, если в ячейке стоит "ОК", как видоизменить макрос, чтобы при вставке слова "ОК" или "ВЫДАНО" блокировалась вся строка
 
#
25.11.2014 15:16:31
Помогите разобраться, как видоизменить макрос, чтобы при вставке в определенную ячейку (например, F2) слова "ОК" или "ВЫДАНО" блокировалась вся строка (A2:F2) и так далее вниз.
Нашла кучу макросов, но так как абсолютно в этом не разбираюсь, не могу изменить.
Такая тема уже была, но она в архиве: http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=16942
Изменено: k_in_q - 25.11.2014 17:09:28
 
Перейти    
Страницы: 1
Наверх