Как заблокировать и разблокировать указанные ячейки с помощью флажка в Excel?

В этой статье говорится об использовании флажка для блокировки и разблокировки диапазона указанных ячеек в Excel.

Блокировать и разблокировать указанные ячейки с помощью флажка с помощью кода VBA

---

Блокировать и разблокировать указанные ячейки с помощью флажка с помощью кода VBA

Приведенный ниже сценарий VBA может помочь вам разблокировать или заблокировать диапазон указанных ячеек при установке или снятии флажка на листе. Пожалуйста, сделайте следующее.

1. Во-первых, вам необходимо указать имя диапазона ячеек, который вам нужно заблокировать и разблокировать с помощью флажка.

Здесь я выбираю диапазон A1: A14, набираю имя LockRng в Имя и фамилия поле, а затем нажмите Enter ключ. Смотрите скриншот:

2. На рабочем листе есть флажок, который вы будете использовать для блокировки и разблокировки ячеек, щелкните правой кнопкой мыши вкладку «Лист», а затем щелкните Просмотреть код из контекстного меню.

Внимание: Флажок должен быть флажком ActiveX при вставке.

3. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в Код: окно.

Код 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?