Как заблокировать или разблокировать ячейки на основе значений в другой ячейке в Excel?

В некоторых случаях вам может потребоваться блокировка или разблокировка ячеек на основе значений в другой ячейке. Например, вы хотите, чтобы диапазон B1:B4 был разблокирован, если ячейка A1 содержит значение «Принято»; и был заблокирован, если ячейка A1 содержит значение «Отклонено». Как этого добиться? Эта статья поможет вам.

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

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

Следующий код VBA поможет вам заблокировать или разблокировать ячейки на основе значения в другой ячейке в Excel.

1. Щелкните правой кнопкой мыши по ярлыку листа (лист с ячейками, которые нужно заблокировать или разблокировать на основе значений в другой ячейке), и выберите Просмотр кода из контекстного меню.

2. Затем скопируйте и вставьте следующий код VBA в окно Кода.

Код VBA: Блокировка или разблокировка ячеек на основе значений в другой ячейке

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь, когда вы вводите значение «Принято» в ячейку A1, диапазон B1:B4 будет разблокирован.

При вводе значения «Отклонено» в ячейку A1, указанный диапазон B1:B4 будет автоматически заблокирован.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

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