Как заблокировать и разблокировать заданные ячейки с помощью флажка в Excel?
В этой статье рассказывается, как с помощью флажка блокировать и разблокировать заданный диапазон ячеек в Excel.
Блокировка и разблокировка указанных ячеек с помощью флажка с использованием кода VBA
Блокировка и разблокировка указанных ячеек с помощью флажка с использованием кода VBA
Приведённый ниже сценарий VBA позволяет блокировать или разблокировать заданный диапазон ячеек при установке или снятии флажка на листе. Выполните следующие действия.
1. Сначала задайте имя диапазону ячеек, которые вы хотите блокировать и разблокировать с помощью флажка.
Здесь я выбираю диапазон A1:A14, ввожу имя LockRng в поле Имя и нажимаю клавишу Enter. См. снимок экрана:
2. На листе, содержащем флажок, который вы будете использовать для блокировки и разблокировки выбора, щёлкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт Просмотреть код.
Примечание: при вставке флажок должен быть элементом ActiveX «Флажок».
3. В появившемся окне Microsoft Visual Basic for Applications скопируйте и вставьте приведённый ниже код VBA в окно Код.
Код VBA: блокировка или разблокировка диапазона указанных ячеек с помощью флажка
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = False
MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
Else
Selection.Locked = True
MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
End If
End SubПримечание: в коде Checkbox1 — это имя флажка, а LockRng — имя диапазона ячеек. Вы можете изменить их по своему усмотрению.
4. Нажмите сочетание клавиш Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications.
Теперь вы можете протестировать код. При снятии флажка появится диалоговое окно Kutools для Excel, сообщающее, что ограниченный диапазон заблокирован. Нажмите кнопку OK.
Если установить флажок, все ячейки в диапазоне «Ограниченный диапазон» будут разблокированы, и откроется диалоговое окно Kutools для Excel, как показано на снимке экрана справа ниже.
См. также:
- Как фильтровать данные в Excel на основе состояния флажка?
- Как скрыть флажок при скрытии строки в Excel?
- Как создать в Excel раскрывающийся список с несколькими флажками?
- Как выделить ячейку или строку с помощью флажка в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек