Verrouiller cellule après temporisation

[hypo78]

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.

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

 

[john]

Re : Verrouiller cellule après temporisation

Bonjour,

Voici une solution... je l'ai réglé sur 40 secondes. mais tout à fait possible de changer sans soucis.

Bonne journée.

John

 

[hypo78]

Re : Verrouiller cellule après temporisation

Bonjour,

çà fonctionne.

Gros merci