Bonjour GP2,
Essaye ceci:
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
MsgBox ("En lecture seule")
Else
MsgBox ("En lecture écriture")
End If
End Sub
Je n'ai pas essayé sur un lecteur réseau, seulement en modifiant l'attribut lecture seule du fichier, mais ça doit être pareil.
A+
José