Empêcher ouverture fichier même en lecture seule

Bonjour le forum,

Voici ce que j'ai trouvé, si ça intéresse quelqu'un :

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
MsgBox 'Message... !', vbOKOnly + vbInformation
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
End Sub

En cliquant OK dans le msgbox, le classeur se ferme automatiquement ! Il suffit aussi de gérer la fermeture du msgbox par le 'X' de fermeture et voilà...