pc adına göre yetkilendirme

[svorm]

Merhaba

Sitede çok araştırdım ama bir türlü bulamadım,


Plan isimli dosyamı ortak üzerinden yaklaşık 40 kişi sadece görme yetkisi ile kullanıyor. Tek yazma yetkisi bende. Bu dosyada yaklaşık 10 sayfa var ve ben herkesin her sayfayı görmesini istemiyorum.
Dosyanın açılışında PC adına göre benim yapacağım yetkilendirme ile istediğim sayfaları görmelerini nasıl sağlarım.
Örnek vermek gerekirse

Kullanıcı 1, kullanıcı 2, kullanıcı 3 tüm sayfaları görecek, geri kalan kullanıcılar sadece sayfa 1 i görecek.



Yardımcı olabilirseniz sevinirim.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Sub kisitla()
  bilgisayaradi = Environ("COMPUTERNAME")
  For i = 1 To Sheets.Count
     If bilgisayaradi = "Kullanıcı1" Or bilgisayaradi = "Kullanici2" Or bilgisayaradi = "Kullanici3" Then
        Sheets(i).Visible = True
     Else
       If Sheets(i).Name = "Sayfa1" Then
          Sheets(i).Visible = True
       Else
          Sheets(i).Visible = False
       End If
     End If
  Next i
End Sub

 

[svorm]

Çok teşekkür ederim