Evitar, por código, que se pueda escribir en determinada celda.

Aqui lo tienes, tendrás que adaptarlo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RangosProhibidos As Range

Set RangosProhibidos = Union(Range("A1:C2"), Range("F5:H8"))
If Intersect(Target, RangosProhibidos) Is Nothing Then Exit Sub
Range("D1").Select
MsgBox "No puede selecccionar una celda de los rangos A1:C2 o F5:H8"

End Sub




"Esteban Dido" escribió en el mensaje
news:

Hola, eso, ¿es posible, por código, evitar que en determinada celda se
pueda
borrar o sobreescribir lo que ya está escrito de antes?
Gracias y saludos

Muchas gracias, José. Era lo que necesitaba.
Saludos

"jose" escribió en el mensaje
news:

Aqui lo tienes, tendrás que adaptarlo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RangosProhibidos As Range

Set RangosProhibidos = Union(Range("A1:C2"), Range("F5:H8"))
If Intersect(Target, RangosProhibidos) Is Nothing Then Exit Sub
Range("D1").Select
MsgBox "No puede selecccionar una celda de los rangos A1:C2 o F5:H8"

End Sub




"Esteban Dido" escribió en el mensaje
news:
> Hola, eso, ¿es posible, por código, evitar que en determinada celda se
> pueda
> borrar o sobreescribir lo que ya está escrito de antes?
> Gracias y saludos
>
>
>
>