Protection de Cellules

[WDAndCo]

Bonsoir le Forum

J'aimerais savoir comment faire pour protéger dans un feuille les cellules non vides alors que les cellules vides ne le sont pas ?

Exemple : en A1 qui est vide, je rentre "09" dans cette cellule et la cellule A1 est protégé.

D'avance merci
Dominique

 

[job75]

Re : Protection de Cellules

Bonsoir WDAndCo,

Un exemple avec ce fichier et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "toto"
[COLOR="Red"]If Application.CountA(Target) Then Target.Locked = True[/COLOR]
ActiveSheet.Protect "toto"
End Sub

Edit : pour les initiés, à la place de la ligne en rouge, on peut écrire :

Target.Locked = Application.CountA(Target)

A+

 

[WDAndCo]

Re : Protection de Cellules

Bonsoir le Forum et Job75

Merci pour cette solution, mais dans la copie de fichier ici joint cela ne marche pas ?

Alors que dans votre exemple cela fonctionne.

D'avance merci
Dominique

 

[job75]

Re : Protection de Cellules

Bonsoir Dominique,

J'avais volontairement omis de préciser que les cellules vides devaient d'abord être déverrouillées : il faut bien laisser les gens réfléchir un peu, non ?

Donc j'ai d'abord ôté la protection de la feuille (mot de passe "1664" ah la bonne bière...).

Ensuite sélectionné toute la feuille => touche F5 => Cellules => Cellules vides.

Puis menu Format => Cellule => Protection => décocher la case Verrouillée.

Enfin reprotégé la feuille avec l'option "Sélectionner les cellules déverrouillées".

Là maintenant c'est du tout cuit et même maché 😉

A+

 

[job75]

Re : Protection de Cellules

Re,

Attention, les "Cellules vides" sélectionnées par la méthode précédente sont celles de la zone de travail en cours.

Si l'on veut déverrouiller toutes les cellules vides de la feuille, procéder ainsi :

- sélectionner toute la feuille et déverrouiller toutes les cellules

- touche F5 => Cellules => cliquer sur Constantes et verrouiller les cellules ainsi sélectionnées

- touche F5 => Cellules => cliquer sur Formules et verrouiller les cellules ainsi sélectionnées.

A+