(27/05/2020, 18:07)feraz yazdı:

Application.Quit

teşekkürler @feraz bey dediğiniz kodu denemiştim ama tüm açık Excel dosyalarını kapattığı için vaz geçmiştim kullanmaktan

---

kodun son hali aşağıdadır denemelerimde sorun çıkmadı
bu haliyle eğer başka açık kitap yoksa Excel Programını, varsa sadece Excel kitabını kapatıyor

Private Sub Workbook_Open()

    If ActiveWorkbook.ReadOnly Then

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

'Workbooks.Count açık Excel dosyasının sayısını verir eğer 1 tane ise programı daha fazla ise sadece kitabı kapatır

        If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close

    End If

End Sub