Repérer cellules protégées

[philippe]

Bonjour

Comment faire pour visualiser dans une selection, les cellules qui sont déprotégée ? J'aimerais si cela est possible que l'on ecrive xxx dans les cellules déprotégée afin de les repérer facilement mais pour cela il faut qu'il teste toutes les cellules de la selection et ceci je ne sais pas le faire.

Merci beaucoup

Philippe

 

[Valérie]

Slt Philippe, et le forum (un peu malade!!)

Pour tester toute chaque cellule d'une selection tu peux utiliser une boucle ce qui te donne :

Sub TestVerouillage()
Dim CELLULE As Range
'Déclaration de la variable qui va passer sur chaque cellule

For Each CELLULE In Selection
'Boucle sur ta selection
If CELLULE.Locked = False Then CELLULE = "xxx"
'Test Verouillage
Next CELLULE
End Sub

Tu verras des xxx arriver dans toutes les cellules non vérouillées

@ bientôt
Valérie

 

[philippe]

C'est exactement ce qu'il me faut, j'avais essayé d'écrire quelque chose qui ressemblait à ce que tu as mis mais je m'étais trompé dans la syntaxe.

Je te remercie

Philippe