Verrouillage de celules avec VBA

Bonjour

J'ai un dossier que j'ai créer et ou je voudrai verrouiller les cellules d'une colonne MESSAGE une fois remplis .

Je n'arrive pas a trouver la bonne formule un peu débutant

dans ce genre de formule VBA

merci de votre aide

Cordialement

Bonjour et bienvenue sur ce forum,

Remplacez votre code actuellement dans la feuille par celui ci-dessous :

Dim encours As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dlg As Integer

If Target.Count > 1 Then Exit Sub
If encours = True Then Exit Sub

dlg = Range("B" & Rows.Count).End(xlUp).Row + 1
If Not Intersect(Target, Range("E" & dlg)) Is Nothing Then
    If Target <> vbNullString Then
        On Error GoTo fin
        encours = True
        ActiveSheet.Unprotect
        Range("E" & Target.Row & ":H" & Target.Row).UnMerge
        Range("B" & Target.Row) = Now
        Range("E" & Target.Row).Locked = True
        Range("E" & Target.Row & ":H" & Target.Row).Merge
        'Range(Target.Address).Locked = True
    End If
End If
fin:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
encours = False
End Sub

Si ok et terminé pensez à cloturer le fil

Cordialement

Merci beaucoup a vous mon problème est résolu c’est Nickel.

merci a vous

cordialement

dernière petite question est il possible de mettre un mot de passe pour le déverrouillage ?

merci

re

dernière petite question est il possible de mettre un mot de passe pour le déverrouillage ?

pour faire simple changez ces deux lignes

ActiveSheet.Unprotect "1234"
ActiveSheet.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True

Ensuite entre les deux guillemets vous mettez votre mot de passe à la place du 1234

Cordialement

Super merci à vous

Bonne journée

cordialement