para Héctor Miguel

hola, alejandro !

... creo que ya me doy por satisfecho ... funciona bien siempre y cuando no proteja la hoja [...]

==> NO tienes porque 'sacrificar' la proteccion de tu hoja [salvo por dejar 'desprotegidos' los dibujos]

... el mensaje donde me dijiste que volviese a poner DrawingObjects:=True ... del día 5 de enero [...]
... lo habre entendido mal.

==> por lo que veo... SI se trata de un 'mal-entendido' :(( [con respecto de 'vlover a' poner ...]
en 'ese' mensaje me referia a que [probablemente] algun otro codigo 'volviese a proteger' la hoja
___________
solo 'me resta' suponer que [algun] 'otro' codigo ESTA [nuevamente] 're-protegiendo' la hoja
'pero...' POR COMPLETO, es decir, vuelve a 'poner' ==> [... DrawingObjects:=True] <=con lo cual, se 'hecha por tierra' la intencion de 'dejar' SIN proteccion los objetos de dibujo [para el codigo]
¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

... Otros ya me hubiesen mandado al quinto pino... jajaja.

==> no creo que 'eso' se de en este foro [seguramtnte] si no hay 'mas' respuestas debe ser 'otra' la causa :??

'en resumen'...
1.- SI puedes 'mantener' la hoja protegida =>excepto los 'DrawingObjects' [si vas a 'manejarlos']<2.- si la hoja es [des-][re-]protegida por codigo... ASEGURATE que NO 'quede' con 'DrawingObjects:=True'
3.- si la protejes [manualmenteo por codigo], y quieres que el codigo no se vea 'limitado' por la proteccion... 'usa'
______
Private Sub Workbook_Open()
Worksheets("Nombre de la hoja").Protect _
PassWord:="MISMA_CONTRASEÑA", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
==> o si tienes algun 'otro' codigo que este 'des-re-protegiendo' la hoja...
que no se te olvide [recordar] y ==> 're-des-proteger' los DrawingObjects <== :))

saludos,
hector.