Discussion :

[wipMan]

yo

J'ai un probleme surprenant. J'ai cree une macro qui permet (permettrait) de proteger certaines cellules et verrouiller toute saisie utilisateur sur celles-ci.

Mon code tel qu'il est en ce moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A:B,D: P,S:U").Select
Selection.Locked = True

Seulement, après plusieurs tests et verifications des bons fonctionnement et verrouillage desdites cellules (ou plages), j'observe que toutes mes cellules ne sont pas bloquees en ecriture comme je l'entends: jusqu'a la colonne P, le verrouillage se fait comme attendu, mais les colonnes Q et R sont aussi protegees, ce qui n'est pas demande...

.Selection aurait-il une portee maximale qui pourrait expliquer cette erreur ?

Merci.

[Stef999]

Bjr,

le code marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A:B,D: P,S:U").Select

à l'exception de l'espace entre D et P

[BlueMonkey]

Bonsoir,

jusqu'a la colonne P, le verrouillage se fait comme attendu, mais les colonnes Q et R sont aussi protegees,

L'état des cellules par défaut est "verrouillé". Donc si les cellules de ces colonnes n'ont pas été déverrouillées par ailleurs,
c'est normal que les colonnes soient verrouillées.

P.S : Il est inutile de sélectionner une plage pour changer la propriété Locked.

[nibledispo]

bonjour,

Comme le précise BlueMonkey le format des cellules est verrouillé par défaut.
Cependant ce verrouillage n'est opérant que si la feuille est protégée.

Voir dernière ligne qui protège la feuille mais n'interdit une action que sur les cellules préalablement reverrouillées (ligne 5) après le déverrouillage de toutes les cellules (ligne 3).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A:B,D:P,S:U").Select   'espace entre : et P supprimé
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

cordialement.

[wipMan]

Merci de vos reponses.

L'espace entre ":" et "P" s'explique du fait que cela donnait un smiley (). Il n'est pas present dans mon code mais fut ajoute pour des raisons evidentes de comprehension.
Je ne sais d'ailleurs pas comment nibledispo a fait pour ne pas l'avoir affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Cells.Select
Selection.Locked =False
Selection.FormulaHidden =False
Range("A:B,D:P,S:U,W:W,Y:AH,1:5").Select   
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

J'ai compris que le statut des cellules est par defaut verrouille. Je commence donc par les deverrouiller dans mon code avec les lignes 1, 2 et 3.
Dans mon premier post, j'avais diminue ma selection pour ne pas noyer le probleme, mais elle est realite comme ci-dessus. Des problemes de verrouillage apparaissent aussi aux jointures entre les espaces D: P, et S:U entre autres: le protection des champs se met en place de facon indesirable. J'observe d'ailleurs une "mise en lumiere" des jointures evoquees comme montrer ci-apres, avec les champs proteges (voulus ou non) en bleu car selectionnes:



La "mise sous forme de tableau" peut-elle interferer dans le protection de ma selection ? Je me pose cette question car alors que ma selection s'arrete a la colonne AH, la protection des champs se prolonge une colonne plus loin, la colonne AI, qui est la fin de mon tableau.

Je ne trouve pas d'explication a ce "phenomene"...

[AlainTech]

L'espace entre ":" et "P" s'explique du fait que cela donnait un smiley (). Il n'est pas present dans mon code mais fut ajoute pour des raisons evidentes de comprehension.
Je ne sais d'ailleurs pas comment nibledispo a fait pour ne pas l'avoir affiche.

Bonjour,

Voilà ce qui arrive quand on n'utilise pas les bonnes balises.

Pour le code, ce sont les balises [code] [/code] (le bouton #) et pas [quote] [/quote] qui servent pour une citation.