วิธีสร้างเซลล์ที่มีชื่อเป็นแบบอ่านอย่างเดียว

ฉันต้องการสร้างเซลล์ "ชื่อเซลล์" แบบอ่านอย่างเดียว

ฉันพบรหัสนี้ที่นี่ แต่ไม่ทราบวิธีการใช้ค่า 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

ฉันจะปรับรหัสนี้ให้เหมาะกับความต้องการของฉันได้อย่างไร

แทนการที่คุณต้องการเพียงแค่ใส่Range("A1:A4")Range("Cell Name")

BTW รหัสที่คุณโพสต์ไม่ได้ทำให้เซลล์อ่านได้อย่างเดียว มันทำให้ยากที่จะเลือกเซลล์ใด ๆ ในช่วงเวลาที่เปิดใช้งาน VBA ยังคงเป็นไปได้ที่จะแก้ไขเซลล์โดยใช้ VBA หรือ Excel 4 Macros หรือ Add-In หรือเทคนิคอื่น ๆ