ağa baglanma yetkısı yoksa makro

[qwerty1478]

Merhaba arkadaslar ağda \\100.60.174.254\birimliste\ belirtilen yola bazı bilgisayarların erısım yetkısı yok erısım yetkısı olan bilgisayarlar da makro otomatık olarak agdakı lısteyı ortak alana cekıyor erisim yetkısı olamayanlar o sekılde user form da listeyi gorebiliyor.


aşagıdakı ağdaki adrese erisim yetkisi olmayan bilgisayarlar da hata versin user form acılarak sadece liste gorebilsin , erisim yetkısı olan bilgisayarlar da makro calıssın şeklınde nasıl bir duzenleme yapabilirim.
\\100.60.174.254\birimliste\

 

[muhasebeciyiz]

Öncelikle, ağ yoluna erişimin olup olmadığını kontrol edebilecek bir VBA kodu yazmamız gerekiyor. Bunu Dir fonksiyonu ile yapabiliriz.

Sub CheckNetworkAccess()
    Dim networkPath As String
    Dim fileExists As Boolean
    Dim userForm As Object   
    
    networkPath = "\\100.60.174.254\birimliste\"   
    
    On Error Resume Next
    fileExists = Len(Dir(networkPath, vbDirectory)) > 0
    On Error GoTo 0   
    
    If fileExists Then       
        MsgBox "Ağ yoluna erişim sağlandı. Makro çalışıyor.", vbInformation
        
    Else       
        MsgBox "Bu bilgisayarın ağ yoluna erişimi yok. Sadece listeyi görebilirsiniz.", vbCritical
        
        UserForm1.Show
    End If
End Sub

Erişim kontrolü yapıldıktan sonra, erişim yetkisi olan bilgisayarlar için işlemi devam ettirirken, erişim yetkisi olmayan bilgisayarlar için sadece UserForm gösterilecek. Userformu hazırlayıp kodları tatbik ediniz

Private Sub UserForm_Initialize()
ListBox1.AddItem "Birim 1"
ListBox1.AddItem "Birim 2"
ListBox1.AddItem "Birim 3"
' Burada ağdaki dosyayı okuyabilir veya sabit listeyi verebilirsin
End Sub

Makroyu çalıştır: Makro çalıştırıldığında, ağ yoluna erişim olup olmadığı kontrol edilir.
Erişim varsa, işlem devam eder.
Erişim yoksa, kullanıcı sadece UserForm üzerinden veriyi görür.
erişim yetkisi olanlar için işlem devam edecek, erişim yetkisi olmayanlar ise yalnızca listeyi görebilecekler.

Deneyinzi

 

[qwerty1478]

tesekurler hocam ağ erısemeyen kullanıcılar ıcın bazen sorgu suresi uzun suruyor2- 3 sn ıcınde cevap yoksa yıne erısım yok mesajı verdırebilirmiyiz acaba