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

Страницы: 1
Защита строки макросом при помощи Chekbox, Помогите в простом разобраться
 
#
22.09.2013 17:21:49
KukIP, термин это, и правда, не относится к области, рассматриваемой на данном формуе, однако, подчерпнут мной он был именно здесь.
"Буква "а" в раскладке шрифта "Marlett" " - будет понятнее?
Это, по-моему, не объект для обсуждения. Крыжик, галочка, буква "а" - симовл.
Начали разговор- условились о чем-то: крыжик=галочка="а". Вроде удобно (хоть и меня тоже коробит от этого слова- я приборостроитель).
Тем не мение спасибо за замечание.
На счет Вашего "после написанного": это уже ближе к делу.
Я в курсе, что лист защищается целиком. Можно ли с помощью макроса снять защиту, затем изменить состав защищаемых ячеек и поставить защиту по-новой?
 
Перейти    
Защита строки макросом при помощи Chekbox, Помогите в простом разобраться
 
#
22.09.2013 15:24:45
Только мне кажется что не подойдет этот код для такой задачи.
Получается что надо выполнять действия:
1. Снимать защиту с уже защищенных ячеек.
2. Менять формат выделенного диапазона (в соответсвии с поставленным крыжиком) делая ее защищаемой.
3.  Ставить защиту вновь.

Я правильно представляю себе процесс?
 
Перейти    
Защита строки макросом при помощи Chekbox, Помогите в простом разобраться
 
#
22.09.2013 15:08:25
Спасибо!
А как сделать так, чтобы после установки "крыжикА", последний снимался только с паролем?
То есть ставя галочку в строке, пользователь защищает строку от дальнейших изменений, а менять ее может только администратор с пролем.
 
Перейти    
Защита строки макросом при помощи Chekbox, Помогите в простом разобраться
 
#
17.09.2013 15:43:12
На этом протале нашел два макроса. Один делает "крыжики" по щелчку мыши, а другой блокирует строку по значению выбранному из выпадающего списка.
А как их объеденить не знаю и знать не могу, VBA никогда не изучал. Помогите пожалуйста.
Вот ссылка на первый м "крыжиками": http://www.planetaexcel.ru/techniques/3/61/#00
И код этого макроса:

Код
'Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
 If Not Intersect(Target, Range("A2:A100" ;) ) Is Nothing Then
 Target.Font.Name = "Marlett"
 If Target = vbNullString Then
 Target = "a"
 Else
 Target = vbNullString
 End If
 End If
End Sub
 
'Снимаем флажок, если был двойной щелчок по ячейке
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("A2:A100" ;) ) Is Nothing Then
 Cancel = True 'чтобы не уйти в режим редактирования
 Target.Font.Name = "Marlett"
 If Target = vbNullString Then
 Target = "a"
 Else
 Target = vbNullString
 End If
 End If
End Sub

Вот второй:http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=45058
И его код:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("A2:K1000" ;) ) Is Nothing Then
 If Cells(Target.Row, 12).Value = "Закрыт" Then Cells(Target.Row, 12).Activate
 End If
End Sub
 
Перейти    
Страницы: 1
Наверх