Dosya Konumuna Göre Filtreleme

[müteşair]

Ekte yer alan dosyayı açan kullanıcının yetki grubuna göre filtreleme yapacak bir makro mümkün müdür acaba?

Örneğin, dosya Ali'nin bilgisayarında açılıyorsa; =BİLGİ("DİZİN") fonksiyonu ile dosya yolu "C:\Users\Ali" tespit edildikten sonra Ali sadece kendi bilgilerinin yer aldığı satırı görebilsin. Ancak, dosyayı Murat açıyorsa tüm satırları görebilsin.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_Open()
    Dim S1 As Worksheet, Kullanici_Adi As String
    
    Set S1 = Sheets("Sayfa1")
    S1.Unprotect 1
    Kullanici_Adi = Environ("USERNAME")
    
    Select Case Kullanici_Adi
        Case "Murat"
            On Error Resume Next
            S1.Range("A1").AutoFilter
            S1.ShowAllData
            On Error GoTo 0
        Case Else
            S1.Range("A1").AutoFilter 1, Environ("USERNAME")
    End Select
    S1.Protect 1
End Sub