Paylaşımdaki dosyayı kaç kişi aktif olarak kullnıyor?

[svorm]

Merhaba

Paylaşımda var olan bir dosyayı aktif olarak anlık kaç kişi kullandığını tespit etmeye çalışıyorum.
Bunun için izlediğim yol kapalı dosyaya veri yazdırmak.
Dosya her açılışında ve kapanışında kullanıcı adı ve zamanı yazıyorum.
Bunun farklı bir yolu var mıdır?

 

[Necdet]

Merhaba

Paylaşımda var olan bir dosyayı aktif olarak anlık kaç kişi kullandığını tespit etmeye çalışıyorum.
Bunun için izlediğim yol kapalı dosyaya veri yazdırmak.
Dosya her açılışında ve kapanışında kullanıcı adı ve zamanı yazıyorum.
Bunun farklı bir yolu var mıdır?

Nasıl yaptığınızı merak ettim. Mesajınızdan bu işlemi yapabildiğiniz anlaşılıyor, paylaşsanız da herkes öğrense.

Belki alternatif çözümlerde ileri sürülebilir.

 

[svorm]

Üstad merhaba,

Sizde merak uyandırabildiysem ne mutlu bana. Eminim sizin için çocuk oyuncağıdır.

Private Sub Workbook_Open()
Dim con As Object, rs As Object, sorgu$, a$
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & "......xls" & ";extended properties=""Excel 12.0;hdr=no"""
sorgu = "select * from [Sayfa1$]"
rs.Open sorgu, con, 1, 3
i = 2
If Not rs.EOF Then
rs.addnew
rs(0).Value = Now
rs(1).Value = Environ("username")
rs.Update
End If
rs.Close
Set rs = Nothing: Set con = Nothing
End Sub

Bu şekilde olduğu zaman analizle uğraşmam gerekiyor. Kim ne zaman açtı, kapadı mı kapamadı mı diye. Bunun yerine şu an aktif olanları görebilirmiyim acaba.
Şimdi aklıma gelen kayıt girişinde yapılan satırı silmek olabilir
Başka bir yol var mıdır bilmiyorum.

İyi çalışmalar