
Me gustaría hacer que una celda "Nombre de celda" sea de solo lectura.
Encontré este código aquí pero no sé cómo usar el valor de cadena en lugar del rango:
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
¿Cómo puedo ajustar este código para adaptarlo a mis necesidades?
Respuesta1
En lugar de Range("A1:A4")
simplemente pondrías Range("Cell Name")
.
Por cierto, el código que publicaste no hace que la celda sea de solo lectura; simplemente dificulta seleccionar cualquier celda en el rango siempre que VBA esté habilitado. Todavía es posible editar la celda usando VBA, macros de Excel 4, un complemento o varios otros trucos.