dosyayı salt okunur açtırmak

[GursoyC]

Merhaba,
aynı dosyayı 3 kişi kullanıyoruz ancak sadece 1 kişi üzerinde oynama yapmaya yetkili.

Select Case Environ("USERPROFILE") komutu ile örneğin "case is xyz" diye başlayıp dosyayı açan xyz bilgisayarı ise dosya salt okunur açılsın diyebileceğim bir komut var mıdır?

Teşekkür ederim.

 

[turist]

Private Sub Workbook_Open()
If Application.UserName <> "Sizin Kullanıcı İsminiz" Then
    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
End Sub

Şeklinde deneyin.

 

[GursoyC]

Maalesef çalışmadı sayın turist.

 

[turist]

Kodu VBA' da ThisWorkbook kısmına yazmalısınız.

"Sizin Kullanıcı İsminiz"
kısmına "Yetkili" olan kişinin "USERPROFILE" ismini yazarak deneyin.
Örnek:
If Application.UserName <> "unlimitted" Then
gibi.
Dosyanızda bunu yaptıktan sonra kaydedip kapatın, tekrar açarak deneyin.

 

[GursoyC]

Gayet güzel çalışyıor sayın turist.
Çok teşekkür ederim.
Saygılar.

 

[turist]

Sağ olun, iyi çalışmalar.