protection cellule

[marc]

Bonjour a vous tous,
Existe t il un autre moyen que la protection feuille pour bloquer une serie de cellules et quelques une en plus qui sont un peu partout sur la feuille, mais sans imposer proteger la feuille
Existe t il du code pour cette fonction et quel est il ?
Merci de l'aide et d'avance
Marc

bon week en à vous tous

 

[andré]

Salut Marc,

Tu peux le faire par le menu Données / Validation / Autoriser / Personnalisé / et dans la petite fenêtre tu écris ce que tu veux (autoriser).
Par exemple 0.000001
Puis dans Message d'erreur tu mets le message que tu veux.

Ândré.

 

[marc]

OK, merci, c'est ok, mais n'y a til pas autre chose que la validation , du code par exemple, qui reprendrai les cellules protégées et lors d'un essais de modif, une msgbox apparaitrai et dirai que cela lui est interdit et il n'aurait accès qu'au cellules déprotégées .

Merci
Marc

 

[Eric C]

Bonjour le forum
Bonjour Marc, bonjour André

Sub ProtectionCellsMarc()

With Sheets("Feuil1")
.Unprotect
.Cells.Locked = False
.Range("a1:a5").Locked = True
.Range("B5:B10").Locked = True
.Protect
End With
End Sub

En espérant faire avancer le schimilibili ...

Bonne fin de dimanche à toute & à tous et bonne Duvel André (Une à la fois ...lol...)
@ ++ Eric C