ortak olanda olan excel dosyasının kimde açık olduğu

[u.L.a.s]

Merhabalar

network ortamında paylaşımda olan excel dosyası var. bu dosyayı birisi açtığında başkası salt okunur açabiliyor.

açarken veren uyarıda normalde kimde açık olduğu yani hangi pc de açık olduğu uyarıda yazması gerekirken windows user gibi bir ibare yer alıyor.

bunu belki sistem yöneticisinin halledeceği bir durum bilmiyorum ama excel içerisinde ayrı bir şeyle hangi pc de açık olduğunu görebilir miyim.? bilgilerinizi rica ederim

 

[u.L.a.s]

Merhabalar

Thsiworkbook kısmına aşağıdaki gibi bir kod düzeneği hazırladım. dosyayı açınca "dosyakimdeacik" shettinde a2 ve b2 hücrelerine bilgisayar username ve bilgisayar adını yazıyor. dosyayı kapatırken de bu yazılı bilgiyi silip kaydedip kapatıyor. buraya kadar her şey tamam.

Fakat sıkıntı şurada başlıyor. diyelim ki ben dosyayı açtım. başka bir pc de başka bir kullanıcıda bu dosyayı açarken read only olarak açıyor. fakat read only açtığı halde dosyakimdeacik sheetine bu sefer o kişinin kullanıcı adı ve bilgisayar adını yazıyor. ben istiyorum ki read only açtığında dosyayı açan kişi. dosyayı ilk açan kişinin olduğu bilgileri görsün kendi bilgileri işlenmesin. bilgi ve yardımlarınızı rica ederim

Private Sub Workbook_Open()

Sheets("dosyakimdeacik").Range("a1").Value = "Kullanıcı Adı"
Sheets("dosyakimdeacik").Range("b1").Value = "Bilgisayar Adı"
Sheets("dosyakimdeacik").Range("a2").Value = Environ("USERNAME")
Sheets("dosyakimdeacik").Range("B2").Value = Environ("Computername")

End Sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("dosyakimdeacik").Range("a1:b2").Select
Selection.Delete
Call kayıt
End Sub

Sub kayıt()
ActiveWorkbook.Save
End Sub

 

[EmrExcel16]

Merhaba, aşağıdaki kod ile saltokunur olup olmadığını kontrol edebilirsiniz.

If ThisWorkbook.ReadOnly = True Then
    Exit Sub
Else
'Kodlarınız
End If

 

[u.L.a.s]

Çok Teşekkürler. tam istediğim gibi oldu emeğine bilgine sağlık

 

[EmrExcel16]

Rica ederim,
iyi çalişmalar.