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

我想将一个单元格“Cell Name”设为只读。

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

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

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

microsoft-excel vba read-only

— Dido006
source

代替 Range("A1:A4") 你刚刚放了 Range("Cell Name")。

顺便说一句，你发布的代码不会使单元格成为只读;只要启用VBA，它就很难选择范围内的任何单元格。仍然可以使用VBA，Excel 4宏，加载项或其他一些技巧来编辑单元格。

— Snowbody
source

哦？是否有任何功能可以单独转动细胞？

— Dido006

您必须保护工作表（可选择使用密码） - 这使得所有单元格都是只读的。然后有选择地启用您想要的某些单元格。在Excel文档中查找单元格保护。如果您使用的是Excel 2007或更高版本（应该是），请查看功能区上“查看”选项卡的“更改”区域。

— Snowbody

是的，我在2007年发现了这个功能，但是，我更喜欢一些代码来禁用对该单元格的任何修改，因为它的位置未知且可以更改，或者可以添加或删除某些列。

— Dido006

您还可以更改VBA上的单元格保护。查看 mrexcel.com/forum/excel-questions/...

— Snowbody