Salut à toi Astano et à tous le monde !
Je n'ai malheureusement qu'un embrion de solution à te proposer, mes compétances en VBA sont très limités :
Dans Worksheet :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayAlerts = False '(cette ligne est supposée ne plus afficher les messages d'alerte, mais ça morche pô sur mon fichier.....)
If ActiveCell.Locked = True Then
MsgBox "NON NON et NON !"
End If
End Sub
Note : avec l'utilisation de DisplayAlerts = False, il faut toujours adjoindre à la fin du code " l'antidote " DisplayAlerts = True sinon Excel n'affiche plus aucun message d'alerte !!
Rassure toi, même si je ne te donne pas de solution " Preteàutiliser "
, avec la bande de fêlé du module qu'il y a sur le forum, ton problème sera résolu rapidement...
Voilà, A+
Duriz