Protection de cellules sur une ligne

Résolu/Fermé

Philou73CH - 28 oct. 2014 à 19:17
Philou73CH - 1 nov. 2014 à 14:39

Bonjour, Bonsoir

J'utilise les données suivantes pour sélectionné quelques cellules devant être rempli.
Comme c'est sur un tableau, je veux verroullier les autres cellules afin d'éviter des mauvaises surpries.
Mon problème est que cela fonctionne uniquement si j'utilise la souris pour me déplacer d'une cellule à l'autre. commen faire pour que les donnés soient pris en compte, même si l'on utilise la touche Tabulation.

'Remise en place du verrouillage sur toutes les cellules de la page
Sheets("Ent.Suivie").Activate
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
'Sélection des cellules vide
Sheets("Ent.Suivie").Range("C10,H10,I10,K10,M10,O10").Select
Selection.Locked = False
Selection.FormulaHidden = False
'Protection de la page
Sheets("Ent.Suivie").Protect Passeword = "abcd"

D'avance merci pour votre réponse

A voir également:

Protection de cellules sur une ligne
Aller à la ligne dans une cellule excel - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide
Excel additionner des cellules - Guide

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
28 oct. 2014 à 21:28

Bonsoir Philou, bonsoir le forum,

Je ne vois pas le rapport entre ton code et ton problème de tabulation ?!...

Ton code a une petite anomalie. Tu commences par déverrouiller toutes les cellules de l'onglet, puis tu sélectionnes une plage et tu déverrouilles cette plage. Résultat, à la fin, aucune cellule n'est verrouillée !...

Essaie comme ça :

'Remise en place du verrouillage sur toutes les cellules de la page
With Sheets("Ent.Suivie")
    .Cells.Locked = True
    .Cells.FormulaHidden = True
    .Range("C10,H10,I10,K10,M10,O10").Locked = False
    .Range("C10,H10,I10,K10,M10,O10").FormulaHidden = False
    .Protect Passeword = "abcd"
End With

Évite les Select inutiles qui ne font que ralentir l'exécution du code...

Philou73CH
29 oct. 2014 à 02:11

Bonjour, Bonsoir ThauTheme,
Merci de votre réponse rapide et de m'avoir rendu attentif à l'erreur stupide.
J'ai apporté les modifications que vous m'avez conseillé et celles nécessaires.
Vous avez vu juste le soucis ne viens pas de là, puisqu'il perdure.

Si l'on pourrait me dire d'ou et pourquoi je vous serai reconnaissant.

Thautheme, merci d'avoir pris le temps de me lire et de m'avoir répondu.

Meilleures salutations.

Réponse 2 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
29 oct. 2014 à 10:54

Bonjour Philou, bonjour le forum,

Je viens de tester ton code et, enfin, de comprendre le rapport avec la touche [TAB]...
Il y a une erreur dans la ligne .Protect Passeword = "abcd" qui doit être :

.Protect Password:="abcd"

À vérifier les options de sélection dans la protection d'onglet (sélectionner les cellules verrouillées, sélectionner les cellules déverrouillées, etc)...

Philou73CH
1 nov. 2014 à 14:39

Merci ThauTheme,
Je m'excuse de ne pas avoir Repondu plus vite. Je me suis concentré sur un autre projet. Maintenant fini, je reprends celui-là et revient donc.
Un grand grand merci pour le temps que tu as accordé à mon soucis.
Mille merci pour ta solution.

Discussions similaires

Statut « en ligne » alors que non

Que veut dire "correspondant occupé" lors d'un appel ?

On me voit connecté sur facebook alors que je n'y suis pas

En ligne sur Messenger alors que non

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters