verrouillage cellule remplie

bonjour,

je cherche a verrouiller les cellules d'un fichier excel au fur et à mesure qu'on remplie la feuille j'ai trouvé ca :

Dim AncienneCellule As String

Private Sub Worksheet_Activate()
AncienneCellule = ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If AncienneCellule <> "" Then
If Range(AncienneCellule).Value <> "" Then
On Error Resume Next
ActiveSheet.Unprotect "mdp", UserInterfaceOnly:=True
Range(AncienneCellule).Locked = True
ActiveSheet.Protect "mdp", UserInterfaceOnly:=True
End If
End If
AncienneCellule = Target.Address
End Sub

mon problème c'est que lorsque l'on selectionne plusieurs cellules puis on rechange de cellule ca bug, car plusieurs cellules ont été selectionnées.
si je rajoute
On Error Resume Next devant
f Range(AncienneCellule).Value <> "" Then
je n'ai plus le message d'erreur, mais toutes les cellules selectionnées avant meme si elles ne sont pas vides se retrouvent verrouillées.

A part remettre une macro à l'ouverture du fichier qui deverrouille les cellules vides, quelqu'un aurait il une autre solution

d'avance merci