Salt Okunur Dosyayı Engelleme

[baykan_m]

Merhaba Arkadaşlar,

Ben firmamıza göre excel de bir kaç raporlama programı yapmıştım. Bu programlar departmanımızdaki herkes kullandığı için ağda bulunuyor. Bazen birinde açıkken bir diğer kişi açtığında salt okunur bile açsa programdaki bazı butonlar sayfayı kaydettiği için programın işleyişini bozmakta. Benim istediğim şey program bir kişide açıkken başka bir kişide hiç bir şekilde açmaması. Yardımcı olanlara şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodu dosyanızın ThisWorkBook (BuÇalışmaKitabı) bölümüne uygulayın.

Option Explicit

Private Sub Workbook_Open()
    If ThisWorkbook.ReadOnly Then
        MsgBox "Dosya başka bir kullanıcıda açık görünmektedir!" & Chr(10) & _
               "Bu sebeple dosyayı kullanamazsınız!", vbCritical
        ThisWorkbook.Close 0
    End If
End Sub