Empêcher affichage boite de dialogue lecture seule

[Benlo]

Bonjour,

Existe-t-il un moyen d'empêcher l'affichage de la boite de dialogue de lecture seule d'excel qui demande si on veut ouvrir le fichier en lecture seule, avoir une notification ou annuler...

merci!

 

[Benlo]

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é !