Bonjour,
J'ai essayé avec le code suivant :
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If ThisWorkbook.ReadOnly = True Then
MsgBox 'message... !', vbOKOnly + vbInformation
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
End Sub
Le message s'affiche quand même...
J'ai essayé avec
Private Sub Workbook_BeforeOpen() et
Private Sub Workbook_Activate() et celà ne fonctionne pas non plus...
En passant, je ne sais pas pourquoi mais ce présent message s'est reproduit à deux reprises et je ne sais pas pourquoi... loin de moi l'idée de faire du harcèlement ....
Désolé !