Genel Bakış
Dosyayı Kimin Açtığını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Yararlanılması temennisiyle.
Hazır Kod
VBA:
Rem Paylaşılan çalışma kitaplarında aktif kullanıcıları listeler
Option Explicit
Public Sub Dosyayi_Kimin_Acik_Tuttugunu_Bul()
Dim arr, i As Long, info As String
On Error Resume Next
arr = ThisWorkbook.UserStatus
On Error GoTo 0
If IsEmpty(arr) Then
MsgBox "Bu yöntem yalnızca paylaşılan kitaplar için bilgi verir.", vbInformation, "Bilgi"
Exit Sub
End If
info = ""
For i = LBound(arr, 1) To UBound(arr, 1)
info = info & "Kullanıcı: " & arr(i, 1) & " | Durum: " & arr(i, 2) & vbCrLf
Next i
If Len(info) = 0 Then
info = "Kullanıcı durumu alınamamaktadır."
End If
MsgBox info, vbInformation, "Açık Kullanıcılar"
End SubAçıklama
Dosyayı Kimin Açtığını Bulma başlığı altında sunulan bu hazır makro kodu, paylaşılan çalışma kitabında oturum açan kullanıcıları listelemektedir.Sınırlamalar ve Notlar:
- Yöntem yalnızca paylaşılan çalışma kitaplarında kullanıcı listesini döndürmektedir.
- Ağ kilit dosyası üzerinden anlık kilitleyen kullanıcı adı her senaryoda tespit edilmemektedir.
Yararlanılması temennisiyle.
