如何將指定儲存格設定為唯讀

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 巨集、加載項或許多其他技巧來編輯單元格。