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