Sayfa Korunduğunda VBA Hatası

Herkese selam, kod iyi çalışıyor ama çalışma sayfası korumalı olduğunda çalışmıyor. sütunun korumasını kaldırmama rağmen, zaman damgası için belirli sütun. hata mesajı açılır penceresini ekliyorum. lütfen yardım edin [ek][/ek] [ek][/ek]


Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Micro1'i (Hedef) arayın
Micro2'i (Hedef) arayın
Micro3'i (Hedef) arayın
End Sub

Özel Sub Micro1 (Aralık Olarak ByVal Hedefi)
Target.Column = 1 ise
Hedef.Ofset(0, 1).Seç
ElseIf Target.Column = 2 O zaman
Hedef.Ofset(1, -1).Seçim
Eğer son
End Sub

Özel Sub Micro2 (Aralık Olarak ByVal Hedefi)
'20140722 güncellemesi
Aralık Olarak Dim WorkRng
Menzil Olarak Dim Rng
Tamsayı Olarak Dim xOffsetColumn
Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
xOfsetSütunu = 2
Çalışmıyorsa O Zaman Hiçbir Şey Değildir
Application.EnableEvents = Yanlış
WorkRng'deki Her Rng İçin
VBA.IsEmpty(Rng.Value) Değilse O Zaman
Rng.Offset(0, 2).Value = Şimdi
Rng.Offset(0, 2).NumberFormat = "gg-aa-yyyy, ss:dd:ss"
başka
Rng.Offset(0, 2).ClearContents
Eğer son
Sonraki
Application.EnableEvents = True
Eğer son
End Sub

Özel Sub Micro3 (Aralık Olarak ByVal Hedefi)
'20140722 güncellemesi
Aralık Olarak Dim WorkRng
Menzil Olarak Dim Rng
Tamsayı Olarak Dim xOffsetColumn
Set WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)
xOfsetSütunu = 6
Çalışmıyorsa O Zaman Hiçbir Şey Değildir
Application.EnableEvents = Yanlış
WorkRng'deki Her Rng İçin
VBA.IsEmpty(Rng.Value) Değilse O Zaman
Rng.Offset(0, 2).Value = Şimdi
Rng.Offset(0, 2).NumberFormat = "gg-aa-yyyy, ss:dd:ss"
başka
Rng.Offset(0, 2).ClearContents
Eğer son
Sonraki
Application.EnableEvents = True
Eğer son
End Sub