Bonjour à Tous ,

Un petit coup de main me serait très utile pour me permettre
de verrouiller l'écriture dans une série de cellules comportant entre autres des formules à protéger ou des données
j'ai vainement tenté cela mais malgré l'avertissement les cellules sont ecrites et je perds toute la dissuasion recherchée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim vligneder As Long
vligneder = [A65535].End(xlUp).Row
If Intersect(Target, Range("J7", "P" & vligneder)) Is Nothing Then Exit Sub
   For Each Cel In Intersect(Target, Range("J7", "P" & vligneder))
        MsgBox " On ne peut pas modifier le contenu !"
   Next Cel
End Sub
Il s'agit donc d'interdire l'ecriture dans une zone "J7" à "P.."

Merci par avance pour votre aide
A++