Sub test_readonly()
Dim Wbk As Workbook
Application.ScreenUpdating = False
Set Wbk = Workbooks.Open(Filename:="D:\test.xls")
If Wbk.ReadOnly = True Then
Wbk.Close False
MsgBox "le fichier est déjà ouvert par un autre utilisateur"
End If
Application.ScreenUpdating = True
End Sub