Coucou Pierre , @+Thierry, et le forum
j'ai tenté avec ton code (en fait je l'avais déjà indiqué dans la fenêtre propriétés ) :
With Worksheets(1)
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True
End With
mais même si la personne ne peut pas selectionner une cellule, le message peut néanmoins apparaitre si il y a un double-clic accidentel. Dans mon cas, par exemple, j'ai des Cases à cocher sur la feuille (et non pas dans un Usf) et du coup si la personne clique à coté , le message Protection apparait.
Enfin bon , finalement si il n'y a pas de solution, comme dirait Pierre, la personne est au moins au courant de la Protection
)
Reste ma seconde question à résoudre puisque après le message, l'"attention" du fichier ce fait au début (au niveau de A1 probablement).
Je me demande si ça ne vient pas du fait que dans une procédure Workbook_open , j'avais ajouté :
Worksheets("Feuil1").Range("A1").Select
Quoiqu'il en soit, ça peut attendre lundi !
)
Je vous souhaite à tous un bon Week end !
BS