Удаление / блокировка выпадающего списка с помощью range.validation

Question

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

 Range("J16") = 2
            With Range("J16").Validation
                .Delete x1ValidateList
                .InCellDropdown = False
            End With

Я получаю ошибку компиляции в .Delete ...

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

Range("J17").Select 
Selection.Locked = True

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

Пожалуйста, помогите, я довольно новичок в мире VBA:)