If ActiveWorkbook.ReadOnly Then
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
ActiveWorkbook.Close
End If
Yine Workbook_Open olayına eklenecek
If ActiveWorkbook.ReadOnly Then
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
ActiveWorkbook.Close
End If