Dosyayı aynı anda iki farklı kullanıcı açamasın!

[harziyan]

Merhabalar;
Ağda ortak kullanımda olan bir dosyamız var. Bu dosyanının her ne şekilde olursa olsun salt okunur vs. aynı anda iki kullanıcı tarafından açılmasını istemiyorum. O dosya o an açıksa diğer kullanıcı bu dosyayı hiç açamasın.
Neden böyle bir talebim olduğuna gelince;
Dosyamda userform kullanıyorum. Form, dosya açılırken otomatik açılıyor ve çalışma sayfaları gizleniyor. Dosyayı açtığımda o dosyanın salt okunur mu yoksa normal şekilde mi açıldığını sayfaları göstermeden anlayamıyorum, bu sebepten çalışmamız çoğu zaman güme gidiyor.
Şayet yukarıda anlattığım gibi bir kısıtlama olursa karışıklığa mahal bırakılmayacağını umuyorum.
Teşekkürler...

 

[systran]

şu kodları dener misin?

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Dosya zaten açık"
ThisWorkbook.Close savechanges:=False
End If
End Sub

 

[harziyan]

Sayın systran;
Kodlar işimi gördü teşekkür ederim. Acaba buna bir de hangi bilgisayarda (bilgisayar adı veya excel kullanıcı adı farketmez) açık olduğuna dair bir bilgi notu da ilave edebilir miyiz?

 

[systran]

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Dosya zaten açık--> " & vbcrlf & Application.UserName & "---" & Environ("UserName")
ThisWorkbook.Close savechanges:=False
End If
End Sub