使用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世界还很陌生：）