如何使命名单元格变为只读

Question

我想将单元格“单元格名称”设为只读。

我在这里找到了这段代码，但不知道如何使用字符串值而不是范围：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Selection, Range("A1:A4")) Is Nothing Then
    Range("B1").Select
  End If
End Sub

我该如何调整此代码以满足我的需要？

Answer 1

而不是Range("A1:A4")你只需放Range("Cell Name")。

顺便说一句，您发布的代码不会使单元格变为只读；它只是使得在启用 VBA 的情况下很难选择范围内的任何单元格。仍然可以使用 VBA、Excel 4 宏、插件或许多其他技巧来编辑单元格。