Dosyanın salt olarak açılması

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ağda ortak kullandığımız bir tane dosyamız mevcut, bu dosya sadece bana normal açılmasını ve başkaları bu dosyayı açtığında onlara sürekli salt olarak açılmasını istiyorum.
Dosya kimsede açık olmasa bile, kontrol olarak kod benim bilgisayarımın adı (ASLAN) değilse başkalarına sürekli salt olarak açılsın istiyorum.

Böyle bişey olabilir mi?
Yardımcı olur musunuz?

 

[ASLAN7410]

Belki birilerinin işine yarar diye ekliyorum.

Private Sub Workbook_Open()
If Application.UserName <> "ASLAN" Then
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
End Sub