Discussion :

[sigma17]

bonjour à tous,
j'ai un souci concernant la protection des données dans une plage de cellule.en effet j'importe des données d'un classeur(A) à un autre(B), j’aimerais que la feuille qui reçoit les données dans le classeur (B) soit verrouillée,comment puis je indiquer cela dans mon code VBA pour qu'il déverrouille la feuille avant l'importation des données et ensuite qu'il la verrouille après l'importation.
Cordialement

[bifconsult]

Bonjour,

Le code pour protéger/déprotéger

Code :

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

1
2
3
 
ActiveSheet.Protect 
ActiveSheet.Unprotect

Avec protect, tu as aussi des options. Exemple:

Code :

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

1
2
3
4
 
DrawingObjects:=True
Contents:=True
Scenarios:=True

...

[sigma17]

Salut,
merci pour l'astuce,voila ça marche mais je ne comprend pas bien le fonctionnement.en effet pour une première plage de cellule j'avais mis un mot de passe,et après le transfert de mes données je ne peux plus modifier.concernant la deuxième plage j'ai pas verrouiller avec un mot de passe,alors j'aimerais savoir s'il est obligatoire de définir un mot de passe à partir de l'onglet "révision"avant d'utiliser "protect" et "unprotect",car j'ai remarqué que ma deuxième plage n'était pas verrouillée après avoir utilisé "protect" sans définir au préalable un mot de passe.
Cordialement

[bifconsult]

Ne sont pas protégées par protect les cellules pour lesquelles il n'y a pas de coche en face du "locked" (je ne connais pas la traduction française dans Excel).

(bouton de droite, format de cellules, onglet protection)

Pour ce que j'en sais, le mot de passe n'est pas obligatoire, il sert juste à ne pas laisser faire de unprotect par n'importe qui.

[sigma17]

bonjour,
merci encore de votre intérêt cela m'a permit de trouver une solution adéquate,la propriété "locked" en français c'est "verrouiller".
pour ajouter un mot de passe je fais

Code :

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

1
2
3
activesheet.protect("mot de passe")
range("A5:B10").select
selection.locked

Cordialement