Флажок не должен быть отмечен / не отмечен, когда лист защищен

Question

Я пытаюсь создать макрос, который добавляет новый флажок, когда вводятся новые данные, но он должен быть отмечен или не отмечен, если лист незащищен. Я попытался сделать это с помощью следующего кода:

Range("Z4").Select
ActiveCell.FormulaR1C1 = "=LOOKUP(2,1/(C[-15]<>""""),ROW(C[-15]))"
i = Range("Z4").Value + 1

    Cells(i, 19).Select
    ActiveSheet.CheckBoxes.Add(Cells(i, 19).Left, Cells(i, 19).Top, 60.75, 15).Select
    With Selection
            .Value = xlOff
            .LinkedCell = Cells(i, 30)
            .Display3DShading = False
    End With
    Selection.Characters.Text = "Pagado"

Там, где связанная ячейка заблокирована и поэтому не может быть изменена при блокировке.

В противном случае остальная часть кода работает отлично.

Answer 1

Так что я понял это, сделав это, было проще, чем я думал. Речь шла о добавлении двух строк вместе, а затем о защите листа и блокировке ссылочных ячеек.

Cells(i, 19).Select
ActiveSheet.CheckBoxes.Add(Cells(i, 19).Left, Cells(i, 19).Top, 60.75, 15).Select
With Selection
        .Value = xlOff
        .LinkedCell = "$CC$" & i
        .Display3DShading = False
End With
Selection.Characters.Text = "Pagado"

Надеюсь, что это может помочь кому-то еще.