PRoblema conmacro cuando la hoja esta bloqueada

Hola amigos necesito de su ayuda una vez mas, tengo una macro que la
baje de este grupo ella me trae una imagen de "C:xxxxxxxxxxxxx" y me la
coloca en la hoja de excel yo tengo en esa hoja varias celdas con una
formulas muy largas lo que me obliga a tener que bloquearlas para evita
que con el uso del documento (lo usan muchas personas), las borren
accidentalmente, el problema que tengo es que cuando bloqueo la hoja
ya no me aparece la imagen que estoy llamando.

Nota: solo bloquie las celdas que tienen formulas todas las demas estan
desbloqueadas.


Gracias de antemano por su ayuda.

esta es la macro si les ayuda

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto
As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("LaFoto").Delete
De_donde = "C:\Mis imagenes\" & [a1] & ".jpg"
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "LaFoto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub