XL 2016 verrouillage de cellule

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #2

Bonsoir florian140001,

Ce n'est pas clair, soyez plus précis et joignez le fichier en indiquant le mot de passe pour protéger la feuille.

A+

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 21 Mai 2019

• #3

Bonsoir,

Sans fichier, difficile de donner une réponse...

A+

Edit : bonsoir Job75

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #4

Quand je choisi chaise dans ma liste déroulante je veux que la case 'Rpàp' soit vérouiller et que je n'écrive pas dedans

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 21 Mai 2019

• #5

Re,

la case Rpap ou la colonne ?

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #6

la case juste à côté du choix

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #7

où j'ai mis les croix c'est ici que je veux vérouiller

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #8

Re, salut Calvus,

Bof puisque vous ne voulez pas indiquer le mot de passe ce sera "toto", le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Protect "toto", UserInterfaceOnly:=True
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each Target In Target 'si entrées multiples (copier-coller
    If Target.Column > 1 And LCase(Target) = "chaise" Then Target(1, 0).Locked = True 'verrouille la cellule à gauche
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Bien sûr les cellules où l'on fait les choix doivent avoir été préalablement déverrouillées.

A+

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #9

pourquoi voulez vous un mot de passe, je veux juste qu'il soit bloquer quand je choisis chaise c'est tout

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #10

Notez bien le LCase pour ignorer la casse.

Pour bloquer une cellule il faut qu'elle soit verrouillée et que la feuille soit protégée.

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #11

d'accord par contre le VBA je n'ai jamais pratiqué du coup votre code je ne sais pas comment l'implanter
j'ai réussi à ouvrir une feuille mais après je ne sais pas quoi faire

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #12

Clic droit sur l'onglet de la feuille et Visualiser le code puis y coller la macro.

 

Vote positif 0 Vote négatif

F

florian140001

XLDnaute Nouveau

• 21 Mai 2019

• #13

et après..

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #14

Après la macro s'exécute toute seule quand on modifie le contenu d'une cellule.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2019

• #15

En fait puisque la macro ne modifie pas le contenu des cellules les Application.EnableEvents sont inutiles :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Protect "toto", UserInterfaceOnly:=True
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target 'si entrées multiples (copier-coller
    If Target.Column > 1 And LCase(Target) = "chaise" Then Target(1, 0).Locked = True 'verrouille la cellule à gauche
Next
End Sub

 

Vote positif 0 Vote négatif