名前付きセルを読み取り専用にする方法

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 マクロ、アドイン、その他のさまざまなトリックを使用してセルを編集することは可能です。