So machen Sie eine benannte Zelle schreibgeschützt

Question

Ich möchte den „Zellennamen“ einer Zelle schreibgeschützt machen.

Ich habe diesen Code hier gefunden, weiß aber nicht, wie ich den String-Wert anstelle des Bereichs verwenden kann:

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

Wie kann ich diesen Code an meine Bedürfnisse anpassen?

Answer 1

Stattdessen Range("A1:A4")würden Sie einfach eingeben Range("Cell Name").

Übrigens macht der von Ihnen gepostete Code die Zelle nicht schreibgeschützt; er erschwert lediglich die Auswahl einer Zelle im Bereich, solange VBA aktiviert ist. Es ist weiterhin möglich, die Zelle mit VBA, Excel 4-Makros, einem Add-In oder einer Reihe anderer Tricks zu bearbeiten.