Verrouillage de Ligne selon valeur d'une cellule

Bonjour à tous,

Je souhaite savoir s'il est possible, via une macro ou autre, de verrouiller ou déverrouiller une ligne complète selon la valeur d'une cellule .

Exemple : En case CU5 j'ai le choix entre "Verrouiller" ou "Déverrouiller"

Si je sélectione "Verrouilller", alors je ne pourrai plus modifier aucune case de la ligne 5 (sauf la CU5 bien sûr)

Si je sélectione "Déverrouilller", alors je pourrai modifier à nouveau les cases de la ligne 5

J'ai mis en pj le fichier,

Merci de votre aide !

Bonjour,

L'accès au VBE est verrouillé !

mot de passe ?

édit: tu peux essayer dans le VBE de la feuille

il faut bien sûr, protéger la feuille avec colonne "CU" déverrouillée.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("cu")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target = "Verrouiller" Then
            Range("a" & Target.Row).Resize(1, 98).Locked = True
        Else
            Range("a" & Target.Row).Resize(1, 98).Locked = False
        End If
    End If
End Sub

Amicalement

Claude

Oups désolé.

Le mot de passe est ncaux1

J'ai testé ce que tu as mis, ça n'a pas l'air de fonctionner......mais je m'y prend peut_être mal ^^

Bonjour,

1) Tu sélectionne toutes les cellules de la feuille et:

Format de cellules/Protection

tu décoche Verrouillée

2) Tu protège la feuille

3) mets à jour la colonne "CU"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("cu")) Is Nothing Then

        ActiveSheet.Unprotect Password:="dudu"
            If Target.Count > 1 Then Exit Sub
        If Target = "Verrouiller" Then
            Range("a" & Target.Row).Resize(1, 98).Locked = True
        Else
            Range("a" & Target.Row).Resize(1, 98).Locked = False
        End If
        ActiveSheet.Protect Password:="dudu"
    End If
End Sub

ici la feuille est protégée avec mot de passe = "dudu"

Amicalement

Claude

MERCI BEAUCOUP......c'est extra

Excellent travail, encore merci.

Si jamais t'es inspiré, je te laisse un lien vers un autre de mes posts qui n'a pas trouvé solution

https://forum.excel-pratique.com/excel/envoi-d-un-mail-selon-date-d-echeance-t26226.html

Bonjour à tous,

je suis très intéressé par la réponse de Dubois mais je n'y arrive pas dans mon fichier. Je souhaiterai, à la manière d'électr0, pouvoir verrouiller/déverrouiller chaque ligne en fonction du statut de la colonne R (verrouiller ou déverrouiller).

Comment dois je procéder ? Je ne maîtrise pas les macros.

De plus, je souhaiterai faire de mon fichier, un fichier partagé, pouvant être ouvert par plusieurs personnes à la fois. Comment le paramétrer ainsi ? Est ce fiable ?

D'avance merci pour votre aide.

Francoisrr