
Gostaria de tornar uma célula "Nome da célula" somente leitura.
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?
Responder1
Em vez de Range("A1:A4")
você apenas colocaria Range("Cell Name")
.
Aliás, o código que você postou não torna a célula somente leitura; apenas torna difícil selecionar qualquer célula no intervalo, desde que o VBA esteja ativado. Ainda é possível editar a célula usando VBA, ou Excel 4 Macros, ou um Add-In, ou vários outros truques.