Verouiller une cellule Excel en VBA
Bonjour à tous,
Je souhaiterais que la Range (A1") qui contient une liste déroulante soit lockée (c'est à dire qu'on ne puisse plus la modifier) si la Range ("B1") est égal à 1,
Voici mon code:
if Range("B1") =1
Range("A1").Select
Selection.Locked = True
end if
Cela ne bloque pas la Range("A1") qui reste toujours modifiable après la condition,
Pourriez vous me dire si il y a une erreur svp, je n'arrive pas à la trouver,
Merci d'avance pour votre aide
Bonjour,
Cela prend effet à la protection de la feuille...
Il faut que je verrouille toute la feuille?
Je ne peux pas verrouiller uniquement la cellule?
merci d'avance
Chaque cellule se verrouille ou déverrouille individuellement. Elles sont verrouillées par défaut.
Le verrouillage n'a d'effet (empêche la modification) que lorsque la feuille est protégée. Sans protection, pas d'effet !
Voici mon code:
if Range("B1") =1
Range("A1").Select
Selection.Locked = True
end if
je dois donc rajouter:
Sheets("Feuille1").Protect ("protection")
ThisWorkbook.Protect ("protection")
Merci d'avance,
Voici mon code:
if Range("B1") =1
Range("A1").Select
Selection.Locked = True
end if
j'ai bien rajouter:
Sheets("Feuille1").Protect ("protection")
ThisWorkbook.Protect ("protection")
Mais ce la ne fonctionne pas,
Ce n'est pas la bonne démarche?
grizou, MFerrand, le forum,
Un exemple ci-joint.
Voir si ça convient.
À adapter au besoin.
LaCéline
Si tu pouvais citer du code complet : les procédures sont complètes lorsqu'elles commencent par Sub et se terminent par End Sub. Et l'on n'oublie pas les déclarations hors procédures...
Si ton code était indenté (et sans sauter de lignes, et sans Select) pour le rendre lisible. Et sans omettre d'utiliser la balise Code pour citer dans un post...
On pourrait se pencher sur la signification du code que tu écris...
Cordialement.