yapmanız gereken tek şey kodları Workbook_Open olayına eklemekti başka birşeye gerek yoktu.
dün anlattığım olay ağ bağlantınız olmadığı için evinizde deneyebilmenizi sağlamaktı
çalışma kitabının açıldığında olayına aşağıdaki kodlar yazar mısınız

if ActiveWorkbook.ReadOnly =true then msgbox "Dosya Salt okunur" else "Sorun yok açılabilir"

msgbox Workbooks.Count " tane Excel dosyası açık

yukardaki kodu Workbook_Open olayına ekleyip dsyayı kapatın
tekrar açın size 2 mesaj vermesi gerek
verdiği bilgiler doğruysa kodları yanlış yere eklemiş olabilirsiniz
çalışmanızı ekleyin inceleyelim

---

tekrar belirteyim, dün yapılanları unutun!
yapmanız gereken tek şey aşağıdaki kodu Workbook_Open

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