Signaler à l'utilisateur que le fichier est en lecture seule

Bonjour Forum,

Comment faire pour signaler à utilisateur qu'un fichier est en lecture seule dès qu'il cherche à modifier le contenu d'une cellule ?

Merci !

Bonsoir

Deux macros événementielles à utiliser avec modération

A mettre dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If ThisWorkbook.ReadOnly = True Then
    MsgBox "Vous êtes dans un fichier en lecture seule"
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
  End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If ThisWorkbook.ReadOnly = True Then
    MsgBox "Vous êtes dans un fichier en lecture seule"
  End If
End Sub

A tester

Edit : Si ce n'est que pour la modification des données utilises seulement la première

Merci.

Ça marche très bien, sauf que ça marche presque trop bien : dès qu'on clique sur une cellule, le message apparaît.

Est-ce qu'il est possible de ne le faire apparaître que si l'utilisateur essaie de changer le contenu (lors d'un double clic, ou s'il appuie sur la touche F2) ?

Bonsoir

Regardes la ligne en rouge dans mon précédant post

Cela devrait être ce que tu demandes

Oui, désolé, j'avais été trop vite !

Merci beaucoup.