Créer ligne dévérouillée

[PtitePomme07]

Bonjour à tous,

Je suis actuellement en train de créer un fichier excel qui consistera à rentrer de nouveaux clients à l'intérieur pour un salon de beauté.

Cependant je bloque sur un point, j'aimerai que lorsque je créé un nouveau client, une nouvelle ligne s'insère et que seulement cette ligne ait ses cellules dévérouillées.

Je sais qu'il faut que j'enlève la protection de ma page avant ce passage, et ça je sais le faire. C'est seulement ce passage de la nouvelle ligne qui me bloque.

Pourriez-vous m'indiquer la marche à suivre s'il vous plait ?

Je vous remercie d'avance et bonne journée à vous !

[jfontaine]

Bonjour,

Une solution

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim i As Long
'Déprotection
Me.Unprotect "TOTO"
'Recherche la prochaine ligne vide
i = Me.Range("A65536").End(xlUp).Row
'Protège la ligne saisie
Rows(i).Locked = True
'Déprotege la ligne vide
Rows(i + 1).Locked = False
 
Me.Protect "TOTO"