XL 2019 Macro pour verouiller des cellules

[lestoiles1]

Bonjour à tous ,

Dans le fichier suivant , la colonne A et la colone O n'est pas verouillé, j'aimerais que lorsque si une cellule dans la colonne A et O sans vide, ça reste deverouillé , si ça contien quelque chose , ça se verouille automatiquement après la saisie de barcode dans la ligne A.
NB: la date dans la colonne O se rempli automatiquement lorsque je saisie un barcode
Le mot de passe c'est 1234566
Merci pour votre aide
lestoiles 1

 

[shinozak]

Bonjour lestoiles1,

Je n'arrive pas a ouvrir ton fichier, essaie ce code que tu places dans la feuille avec les colonnes :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

ActiveSheet.Unprotect

If Not Intersect(Target, Columns("A")) Is Nothing Then
    On Error Resume Next
    For w = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & w) = "" Then
             Range("A" & w).Locked = False
             Range("O" & w).Locked = False
        Else
             Range("A" & w).Locked = True
             Range("O" & w).Locked = True
        End If
    Next
End If

ActiveSheet.Protect
End Sub