XL 2016 Verrouiller automatiquement la colonne précédente après avoir modifier une cellule de la colonne suivante

arnoldbrice19

XLDnaute Nouveau
Bonjour à tous, j'espère que vous vous portez merveilleusement bien et que vous préparez agréablement la nouvelle année ? Merci !!! :)🙏

Etant débutant, j'ai tout d'abord essayé de lire les articles similaires mais sans trouver de réponse à ma question. C'est donc pourquoi je viens vers vous pour avoir une aide sur cette macro afin de l'améliorer. C'est celle-ci 👇
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:M3, B5:M6, B8:M8, B10:M27")) Is Nothing Then
ActiveSheet.Unprotect "0000"
Target.Locked = True
ActiveSheet.Protect "0000"
End If
End Sub
En effet, je souhaiterais que les cellules indiquées (remplie en vert) de la colonne B (B3, B5, B6, B8, B10,...) ou bien toutes les cellules de la colonne, se verrouillent automatiquement après avoir sélectionné le "Code client" de la colonne suivante (colonne C). L'objectif est de sécuriser les données saisies dans la colonne précédente relatives au client précédent.
Les cellules concernées sont remplies en vert.

Ci-dessous le fichier explicatif. Le code de verrouillage est celui indiqué dans le code.

Merci par avance pour votre aide ! 🙏
 

Pièces jointes

  • RECHERCHE H.xlsm
    26.3 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
312 106
Messages
2 085 352
Membres
102 871
dernier inscrit
Maïmanko