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

Question

Мне нужен простой код VBA для блокировки ячейки (или диапазона ячеек), если я нажимаю на флажок

Например, - если я нажимаю на флажок, диапазон ячеек, например A1: A20, должен быть разблокирован и тогда я могу ввести некоторые значения; если я сниму флажок, ячейка должна быть заблокирована

Кто-то может помочь мне с кодом. Выдает ошибку «Невозможно установить заблокированное свойство класса диапазона»

Answer 1

Попробуйте это (используя ActiveX Checkbox):

Private Sub CheckBox1_Click()
    Dim rng As Range

    Set rng = Worksheets("Sheet1").Range("A1:A20")

    ActiveSheet.Unprotect ""

    If Me.CheckBox1.Value Then
        rng.Locked = False
        rng.Interior.Color = RGB(255, 255, 255)
    Else
        rng.Locked = True
        rng.Interior.Color = RGB(220, 220, 220)
    End If

    ActiveSheet.Protect ""
End Sub