Ошибка VBA при защите листа

Привет всем, код работает нормально, но я не работаю, когда рабочий лист защищен. хотя я снял защиту столбца, определенный столбец для временной метки. я прикрепляю всплывающее сообщение об ошибке. помогите пожалуйста [attachment][/attachment] [attachment][/attachment]


Private Sub Worksheet_Change (ByVal Target As Range)
Позвонить Micro1 (Цель)
Позвонить Micro2 (Цель)
Позвонить Micro3 (Цель)
End Sub

Частный Sub Micro1 (Цель ByVal как диапазон)
Если Target.Column = 1 Then
Цель.Смещение(0, 1).Выбрать
ИначеЕсли Цель.Колонка = 2 Тогда
Цель.Смещение(1, -1).Выбрать
End If
End Sub

Частный Sub Micro2 (Цель ByVal как диапазон)
'Обновление 20140722
Тусклый рабочий диапазон как диапазон
Уменьшить кольцо как диапазон
Dim xOffsetColumn как целое число
Установите WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
ксоффсетколумн = 2
Если не WorkRng ничего, тогда
Application.EnableEvents = False
Для каждого кольца в WorkRng
Если Не VBA.IsEmpty(Rng.Value) Тогда
Rng.Offset(0, 2).Value = Сейчас
Rng.Offset(0, 2).NumberFormat = "дд-мм-гггг, чч:мм:сс"
Еще
Rng.Offset(0, 2).ClearContents
End If
Следующая
Application.EnableEvents = True
End If
End Sub

Частный Sub Micro3 (Цель ByVal как диапазон)
'Обновление 20140722
Тусклый рабочий диапазон как диапазон
Уменьшить кольцо как диапазон
Dim xOffsetColumn как целое число
Установите WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
ксоффсетколумн = 6
Если не WorkRng ничего, тогда
Application.EnableEvents = False
Для каждого кольца в WorkRng
Если Не VBA.IsEmpty(Rng.Value) Тогда
Rng.Offset(0, 2).Value = Сейчас
Rng.Offset(0, 2).NumberFormat = "дд-мм-гггг, чч:мм:сс"
Еще
Rng.Offset(0, 2).ClearContents
End If
Следующая
Application.EnableEvents = True
End If
End Sub