Alex550445
XLDnaute Junior
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
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