Satırda Yapılan Son Değişikliğin Bilgileri Gerekiyor

[konas06]

Ömer Hocam çok teşekkür ederim.
İlk verdiğiniz formülde buna benzer bişey denedim ama onu aşağıda doğru indirmeyi yapamamıştır.
denediğim şey şuydu, A2:I2 demiştim ama bunu aşağı doğru uygulayamamıştır.
Meğer böyleymiş.
Tekrar teşekkür ederim.
Saygılarımla.

 

[Ömer]

Ek olarak J sütununda kullanıcı değişiklik yapmaması için o hücreleri kilitleyin diğer hücrelerin kilidini açın. Aşağıdaki kodlar otomatik sayfa koruma uygular. Ayrıca mesaja son değişiklik yapılan hücrenin adresinide ekledim.

Eğer kullanıcı adı kullanmanızdaki neden bu çalışmayı paylaşıma açıp oradan işlem yapmak olacaksa bunu yapsanızda kodlar çalışmaz. Paylaşımdaki bir dosyada makrolar çalışmamaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "[COLOR=red]abc[/COLOR]" [COLOR=green]' abc koruma şifresidir.[/COLOR]
If Not Intersect(Target, [A2:I100]) Is Nothing Then
Cells(Target.Row, "J") = Environ("UserName") & "-" & Target.Address & "-" & _
Format(Now, "dd/mmmm/yyyy - hh:mm:ss")
End If
ActiveSheet.Protect "[COLOR=red]abc[/COLOR]"
End Sub

.

 

[konas06]

Evet Ömer bey aynen düşündüğünüz gibi çok kullanıcılı bir ağda bu kodu uygulamak istiyordum.
Bunu çözemiyeceğiz galiba değil mi?

 

[mustafaine1]

track changes ozellıgını denedınız mı acaba?

 

[konas06]

Hocam bu özelliği sitede biraz araştırdım ancak galiba hep 2003 versiyon için bazı açıklamalar var 2007 de bu özellik nasıl kullanılır bilginiz var mı? Yada bu siteden bir link sizi yormayayım
Selamlar.

 

[mustafaine1]

sıtede lınk olup olmadıgını bılmıyorum ama ag kullanıyorsanız ve cok kullanıcıyla kullanıyorsanız revıew menusunden track changes ozellıgı ıle ıstedıgınızden daha fazlasına ulasabılırsınız..