Check Box y protección

Hola, Faustino !

... check box ligado a una celda ... si protejo la hoja ... error ... porque la celda esta protegida
... si quito la proteccion el cursor puede llegar a esa celda, lo que no es conveniente.
... solucionado con programacion: no ligo el check a una celda, desprotejo, cambio la celda, protejo.
... otra manera de hacerlo?

la celda vinculada como resultado de la seleccion [p.e.] en un combo, se considera 'accion del usuario'
[situacion que se quiere 'prevenir' al usar la proteccion de la hoja y/o el libro], por lo tanto...
para 'poder usar' la celda vinculada CON el cambio en el objeto ES IMPRESCINDIBLE 'desbloquearla' :((

si [lo 'unico' que] quieres [es] 'evitar' que el usuario 'se posicione' en 'esa' celda [y posiblemente 'otras']...
copia el siguiente codigo [p.e. 'suponiendo' que la celda vinculada al combo sea 'D5']
en el modulo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("d5")) Is Nothing Then Range("a1").Select
End Sub

saludos,
Héctor.

Muchas gracias por la contestación. Aclarado el punto.
Saludos,
Faustino Toba
Caracas.

"Héctor Miguel" wrote in message news:O%

Hola, Faustino !

> ... check box ligado a una celda ... si protejo la hoja ... error ... porque la celda esta protegida
> ... si quito la proteccion el cursor puede llegar a esa celda, lo que no es conveniente.
> ... solucionado con programacion: no ligo el check a una celda, desprotejo, cambio la celda, protejo.
> ... otra manera de hacerlo?

la celda vinculada como resultado de la seleccion [p.e.] en un combo, se considera 'accion del usuario'
[situacion que se quiere 'prevenir' al usar la proteccion de la hoja y/o el libro], por lo tanto...
para 'poder usar' la celda vinculada CON el cambio en el objeto ES IMPRESCINDIBLE 'desbloquearla' :((

si [lo 'unico' que] quieres [es] 'evitar' que el usuario 'se posicione' en 'esa' celda [y posiblemente 'otras']...
copia el siguiente codigo [p.e. 'suponiendo' que la celda vinculada al combo sea 'D5']
en el modulo de 'la hoja' ==> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("d5")) Is Nothing Then Range("a1").Select
End Sub

saludos,
Héctor.