(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.