capturar el doble click y manejarlo sobre celdas protegidas

hola, marla !

... capturar el doble click sobre una celda protegida (y hoja protegida)
... que no me salga el mensaje de... no se puede editar ??

copia/pega las siguientes lineas:
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Locked Then Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Locked Then Cancel = True
End Sub

saludos,
hector.

Que hay Hector, yo estoy siguiendote los pasos, oye esta
solucion que diste funciona perfecta, pero no habra alguna
opcion para cuando tratan de escribir sobre una celda
protegida, que de igual manera no envie el mensaje?

Saludos
Gema

hola, marla !

... capturar el doble click sobre una celda protegida

(y hoja protegida)

... que no me salga el mensaje de... no se puede

editar ??

copia/pega las siguientes lineas:
en el modulo de codigo de 'esa' hoja ==>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As

Range, Cancel As Boolean)

If Target.Locked Then Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As

Range, Cancel As Boolean)

If Target.Locked Then Cancel = True
End Sub

saludos,
hector.


.

hola, Gema !

... habra alguna opcion para cuando tratan de escribir sobre una celda protegida... no envie el mensaje?

pues... se me 'ocurren' varias formas/alternativas =>[obviamente] todas requieren el uso de macros<[segun el grado y complejidad del tipo de 'proteccion' que necesites]
-> desde 'evitar' que seleccionen celdas bloqueadas
-> hasta 'inhabilitarle' [momentaneamente] la entrada de datos al usuario
una 'intermedia' pudiera ser la siguiente [un 'engaño' para el usuario] :))
-> deja la hoja sin proteccion [SI... SIN proteccion] solo 'conserva' cuales son las celdas 'bloqueadas'
copia las siguientes lineas en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
With Application
If Target.Locked Then
.EnableEvents = False
.Undo
.EnableEvents = True
End If
End With
End Sub

saludos,
hector.