Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
MsgBox "Cette application est en cours d'utilisation, revenez plus tard ; merci"
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End If
End Sub