Eliminar celdas y en hoja bloqueada por codigo

En una hoja bloqueada, para borrar unas celdas desplazando el resto
hacia arriba con la instruccion:

ws.Range(RangoDestino).Delete Shift:=xlShiftUp

(ws es la hoja activa con el rango a borrar)
Se detiene la ejecucion en esa línea, a pesar de estar desbloqueadas
las celdas, y "toda la eternidad" de celdas por debajo. Para evitarlo
habia pensado en colocar antes y despues lo siguiente:

ActiveSheet.Unprotect '(desbloqueando aqui)
ws.Range(RangoDestino).Delete Shift:=xlShiftUp 'elimina las celdas
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True '(volviendo a bloquear)

Lo que lo hace funcionar, pero claro, solo si la contraseña de
proteccion está vacía (algo bastante inutil por otro lado)

¿puede hacerse funcionar con una hoja bloqueada con contraseña?
(necesito que se desplacen hacia arriba, no sirve con borrar su
contenido)
Gracias por adelantado, y un saludo a todos