hypo78
XLDnaute Impliqué
Bonjour à tous,
J'utilise un code VBA de BoisGontier qui consiste à verrouiller une cellule après saisie.
Je souhaiterais la même chose mais après un certains temps de manière à ce que l'utilisateur puisse corriger une éventuelle erreur de saisie.
Merci
J'utilise un code VBA de BoisGontier qui consiste à verrouiller une cellule après saisie.
Je souhaiterais la même chose mais après un certains temps de manière à ce que l'utilisateur puisse corriger une éventuelle erreur de saisie.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B13], Target) Is Nothing And Target.Count = 1 Then
ActiveSheet.Unprotect Password:=""
Target.Locked = True
Target.Interior.ColorIndex = 44
ActiveSheet.Protect Password:=""
End If
End Sub
Merci