Salt Okunur Dosya Durumu

[baydeniro]

Sayın arkadaşlar. Bir dosya SALT OKUNUR şeklinde açılırsa bu durumu bilgi olarak yazdırılabilir mi ?

 

[baydeniro]

Sayın arkadaşlar. Bir dosya SALT OKUNUR şeklinde açılırsa bu durumu bilgi olarak yazdırılabilir mi ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu çalışma kitabınızın ThisWorkbook bölümüne uygulayın ve kayıt edip kapatın. Dosyanızı salt okunur olarak ayarlayın. Dosyanızı açtığınızda uyarı mesajı alacaksınız.

Option Explicit
 
Private Sub Workbook_Open()
    If ThisWorkbook.ReadOnly = True Then
        MsgBox "Bu dosya salt okunur açılmıştır !", vbCritical
        Exit Sub
    End If
End Sub

 

[baydeniro]

Sayın Korhan Ayhan çok teşekkür ederim, ellerinize sağlık. Dosyaya başka bir kullanıcıda açıkken, açılmaya çalışıldığında (henüz dosya excelde açılmamışken) ekrana kimde açık olduğu mesajı geliyor. Buna benzer bir mesajın dosya açıldıktan sonra, excel içinde de belirmesi mümkün mü ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte bu konuyla ilgili bir çözüm sunulmuş. İncelermisiniz.

http://www.xcelfiles.com/IsFileOpen.html#anchor_37