Как заблокировать и разблокировать указанные ячейки с помощью флажка в Excel?
В этой статье говорится об использовании флажка для блокировки и разблокировки диапазона указанных ячеек в Excel.
Блокировать и разблокировать указанные ячейки с помощью флажка с помощью кода VBA
Блокировать и разблокировать указанные ячейки с помощью флажка с помощью кода VBA
Приведенный ниже сценарий VBA может помочь вам разблокировать или заблокировать диапазон указанных ячеек при установке или снятии флажка на листе. Пожалуйста, сделайте следующее.
1. Во-первых, вам необходимо указать имя диапазона ячеек, который вам нужно заблокировать и разблокировать с помощью флажка.
Здесь я выбираю диапазон A1: A14, набираю имя БлокировкаRng в Фамилия поле, а затем нажмите Enter ключ. Смотрите скриншот:
2. На рабочем листе есть флажок, который вы будете использовать для блокировки и разблокировки ячеек, щелкните правой кнопкой мыши вкладку «Лист», а затем щелкните Просмотреть код из контекстного меню.
Внимание: Флажок должен быть флажком ActiveX при вставке.
3. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в Code окно.
Код VBA: заблокировать или разблокировать диапазон указанных ячеек с помощью флажка
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = Fals
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. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
Теперь вы можете протестировать код. При снятии флажка появляется Kutools for Excel появится диалоговое окно, в котором сообщается, что указанный диапазон заблокирован, нажмите кнопку OK .
При установке флажка все ячейки в указанном диапазоне будут разблокированы, и вы получите Kutools for Excel диалоговое окно, как показано на скриншоте ниже справа.
Статьи по теме:
- Как фильтровать данные по флажку в Excel?
- Как скрыть флажок, когда строка скрыта в Excel?
- Как создать выпадающий список с несколькими флажками в Excel?
- Как выделить ячейку или строку с помощью флажка в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!