Merhaba Arkadaşlar geçmiş bayramınız kutlu olsun. 

Arkadaşlar Excel dosyam makro kodları içerdiği için ağda paylaşamiyorum. Ancak ayrı bilgisayarlarda değişik elamanlar ayni dosyayı kullanıyorlar. Biri kapatarak diğeri açarak şeklinde. Bazen bir elaman da dosya açık olduğu halde başka bir elaman fakına varmadan salt okunur olarak açarak veri girişi yapıyor. Haliyle Dosya salt okunu olduğu için veriler kayıt edilmemiş oluyor.

Benim istediğim bir elaman da dosya açık olduğu zaman ikinci bir bilgisayarda açılmak istendiğinde salt okunur uyarısını verdikten sonra eveti  tıklasam da dosya kapansın hiç bir şekilde salt okunur olarak açılmasın.  Bunun için nasıl bir kod eklemem gerekiyor.

aşağıdaki kodu dener misiniz? ağ olmadığı için deneme imkanım olmadı

Private Sub Workbook_Open()

'   dosyayi aç

    ExcelAcik = ThisWorkbook.FullName

    Set ExcelKitabi = Workbooks.Open(ExcelAcik)



'   salt okunur mu?

    If ExcelKitabi.ReadOnly Then

        ActiveWorkbook.Close

        MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."

        Exit Sub

    End If

End Sub

Çok teşekkürler Hocam ellerinize sağlık.

Hocam yarın iş  yerinde deneme yapıp dönüş yapacam.

Kusura bakmayın soruyu yanlış yorumlamışım kodu aşağıdaki gibi değiştirir misiniz

If ActiveWorkbook.ReadOnly Then 

MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."

ActiveWorkbook.Close 

End If

---

Yine Workbook_Open olayına eklenecek

Rica ederim hocam şu anda iş yerinde olmadığım için dememe imkanım yor. Yarın dönüş yapacam. 
Yukarıdaki kodu If bölümünden itibaren değiştirecem.

(27/05/2020, 17:29)berduş yazdı: Kusura bakmayın soruyu yanlış yorumlamışım kodu aşağıdaki gibi değiştirir misiniz

If ActiveWorkbook.ReadOnly Then 

MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."

ActiveWorkbook.Close 

End If

---

Yine Workbook_Open olayına eklenecek

kodun tamamı bu. workbookOpen olayına yazılacak az önce denedim, ağ olmadığı için Access dosyasına bağladığım bir Excel dosyasına ekledim. Access bağlı talo açıkken ssatokunur modunda açıldığı için uyarı verip kapandı.
tek sıkıntısı var Excel kitabını kapatıyor ama Excel programı açık kalıyor.