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