Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Блокировка диапазона при введении данных в определенную ячей - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Блокировка диапазона при введении данных в определенную ячей (Формулы/Formulas)
Блокировка диапазона при введении данных в определенную ячей
juliet853 Дата: Среда, 31.07.2019, 14:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день.
Есть ли возможность заблокировать диапазон данных A2:K7 как только будет введена информация в ячейку K3?

Заранее благодарю.
 
Ответить
СообщениеДобрый день.
Есть ли возможность заблокировать диапазон данных A2:K7 как только будет введена информация в ячейку K3?

Заранее благодарю.

Автор - juliet853
Дата добавления - 31.07.2019 в 14:47
Nic70y Дата: Среда, 31.07.2019, 14:57 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5505
Репутация: 1197 ±
Замечаний: 0% ±

ru13;10;03
снимите защиту, со всех ячеек, которые не нужно блокировать
и в модуль листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("k3")) Is Nothing Then
        If Range("k3") <> "" Then ActiveSheet.Protect
    End If
End Sub
[/vba]


ЯД(poison) 41001841029809
 
Ответить
Сообщениеснимите защиту, со всех ячеек, которые не нужно блокировать
и в модуль листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("k3")) Is Nothing Then
        If Range("k3") <> "" Then ActiveSheet.Protect
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 31.07.2019 в 14:57
juliet853 Дата: Среда, 31.07.2019, 17:36 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
В таком случае блокируется весь лист. Интересует именно блокировка определенного диапазона.
Такое возможно?
 
Ответить
СообщениеВ таком случае блокируется весь лист. Интересует именно блокировка определенного диапазона.
Такое возможно?

Автор - juliet853
Дата добавления - 31.07.2019 в 17:36
Nic70y Дата: Четверг, 01.08.2019, 10:28 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5505
Репутация: 1197 ±
Замечаний: 0% ±

ru13;10;03
блокируется весь лист
и что?
снимите защиту,

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u_1 = Target.Row
    u_2 = Target.Column
    If Range("k3") <> "" And u_1 > 1 And u_1 < 8 And u_2 < 12 Then [a1].Select
End Sub
[/vba]
но это можно обмануть при сильном желании


ЯД(poison) 41001841029809
 
Ответить
Сообщение
блокируется весь лист
и что?
снимите защиту,

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u_1 = Target.Row
    u_2 = Target.Column
    If Range("k3") <> "" And u_1 > 1 And u_1 < 8 And u_2 < 12 Then [a1].Select
End Sub
[/vba]
но это можно обмануть при сильном желании

Автор - Nic70y
Дата добавления - 01.08.2019 в 10:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Блокировка диапазона при введении данных в определенную ячей (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!