Bloquer sur feuille protégé cell libéré par defau

[DERKOO]

Bonjour forum

Est- il possible de bloquer des cellules, qui à l´origine sont définis comme libérés sur une feuille protégé, une fois remplie?

Genre l ideal serait si la condition 1 est atteint:
- Sur feuille déjà protégé, bloquer toutes les cellules qui ont été remplies..
Comme ca y a pas de changement posssible..

MErci d avance

Antoine

 

[Creepy]

Bonjour Derkoo, le Forum,

Ce petit bout de code devrait t'aider !

Dim FullCell As Variant
ActiveSheet.Unprotect
For Each FullCell In Range('a1:c11')
&nbsp; &nbsp; If FullCell <> '' Then
&nbsp; &nbsp; &nbsp; FullCell.Locked = True
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; FullCell.Locked = False
&nbsp; &nbsp; End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True


Attention je n'ai pas mis de protection par mot de passe et j'ai juste fait le test sur quelques cellules.

++

Creepy

 

[DERKOO]

Merci Creepy

je vais le tester tout de suite