Como tornar uma célula nomeada somente leitura

Question

Gostaria de tornar uma célula "Cell Name" somente leitura.

Eu encontrei este código aqui, mas não sei como usar o valor String em vez do intervalo:

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

Como posso ajustar esse código para atender às minhas necessidades?

    

Answer 1

Em vez de Range("A1:A4") , você acabou de colocar Range("Cell Name") .

BTW, o código que você postou não faz a célula ler somente; Isso dificulta a seleção de qualquer célula no intervalo, desde que o VBA esteja habilitado. Ainda é possível editar a célula usando o VBA, ou Macros do Excel 4, ou um Add-In, ou uma série de outros truques.