Error de VBA cuando la hoja está protegida

Hola a todos, el código funciona bien pero no funciona cuando la hoja de trabajo está protegida. aunque he desprotegido la columna, la columna determinada para la marca de tiempo es. Estoy adjuntando el mensaje de error emergente. por favor ayuda [archivo adjunto][/archivo adjunto] [archivo adjunto][/archivo adjunto]


Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Llamar a Micro1 (Objetivo)
Llamar a Micro2 (Objetivo)
Llamar a Micro3 (Objetivo)
End Sub

Sub Micro privado 1 (objetivo ByVal como rango)
Si Target.Column = 1 Then
Objetivo.Desplazamiento(0, 1).Seleccionar
ElseIf Objetivo.Columna = 2 Entonces
Objetivo.Desplazamiento(1, -1).Seleccionar
Si terminar
End Sub

Sub Micro privado 2 (objetivo ByVal como rango)
'Actualiza 20140722
Dim WorkRng como rango
Dim Rng como rango
Dim xOffsetColumn como entero
Establecer WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
xColumnaDesplazamiento = 2
Si no WorkRng no es nada, entonces
Application.EnableEvents = False
Para cada anillo en WorkRng
Si no es VBA.IsEmpty(Rng.Value) Entonces
Rng.Offset(0, 2).Valor = Ahora
Rng.Offset(0, 2).NumberFormat = "dd-mm-aaaa, hh:mm:ss"
otro
Rng.Offset(0, 2).ClearContents
Si terminar
Siguiente
Application.EnableEvents = True
Si terminar
End Sub

Sub Micro privado 3 (objetivo ByVal como rango)
'Actualiza 20140722
Dim WorkRng como rango
Dim Rng como rango
Dim xOffsetColumn como entero
Establecer WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
xColumnaDesplazamiento = 6
Si no WorkRng no es nada, entonces
Application.EnableEvents = False
Para cada anillo en WorkRng
Si no es VBA.IsEmpty(Rng.Value) Entonces
Rng.Offset(0, 2).Valor = Ahora
Rng.Offset(0, 2).NumberFormat = "dd-mm-aaaa, hh:mm:ss"
otro
Rng.Offset(0, 2).ClearContents
Si terminar
Siguiente
Application.EnableEvents = True
Si terminar
End Sub