Protéger la feuille en VBA

[lamho27]

bojour le forum,
je voudrais protéger ma feuille sauf quelque celulles en VBA ( Ex : ma feuille sauf celulles J6 et J9 )
merci d'avance

 

[RENAUDER]

Re : Protéger la feuille en VBA

Bonjour,

Pourquoi du VBA pour protéger ces 2 cellules ?
Tu peux le faire directement depuis le menu d'Excel
Format/Cellules/Protection

 

[jeanpierre]

Re : Protéger la feuille en VBA

Bonjour lamho27, Eric,

Selection de tes deux cellules (ou plus, si besoin) et Format/Cellules/onglet Protection et tu décoches Verrouillé.

Pour finir, Outils/Protection/Protéger la feuille avec ou sans mot de passe, doit suffire.

A te lire pour plus sinon.

Jean-Pierre

 

[lamho27]

Re : Protéger la feuille en VBA

merci bien , je sais faire comme ça , mais je veux bien si on peut protéger en BVA , si possible ?

 

[tototiti2008]

Re : Protéger la feuille en VBA

Bonjour lamho27, Jean Pierre, Renauder,

enregistres une macro pendant ces opérations, tu seras déjà bien sur la voie.
la seule différence est si tu as un mot de passe, à la méthode Protect et UnProtect il faudra ajouter l'argument Password:="MotDePasse"

 

[Pierrot93]

Re : Protéger la feuille en VBA

Bonsoir à tous

en vba cela donnerait ceci :

Range("J6,J9").Locked = False
Sheets("Feuil1").Protect "toto"

bonne soirée
@+

 

[lamho27]

Re : Protéger la feuille en VBA

Pierrot93 , ton code ne marche pas

 

[jeanpierre]

Re : Protéger la feuille en VBA

Re, Salut tototiti2008,

Vois toujours pas trop l'intérêt de passer par VBA dans ton cas....

L'intérêt en VBA, c'est de tout protéger et de déprotéger au seul instant où l'on veut faire une action sur la feuille. Dans ton souhait, ce n'est pas le cas... Donc ???

Edit : Pour saluer Pierrot

 

[Pierrot93]

Re : Protéger la feuille en VBA

Re
Salut Jean-Pierre🙂
chez moi fonctionne, mais attention ta cellule J9 est fusionnée, pas bon ménage les cellules fusionnées et vba..

 

[Cousinhub]

Re : Protéger la feuille en VBA

Bonsoir,

Jeanpierre 🙂 et Pierrot 🙂

si tu veux malgré tout conserver tes cellules fusionnées :

Range("J6").MergeArea.Locked = False
Range("J9").MergeArea.Locked = False
Sheets("Feuil1").Protect "toto"

 

[Pierrot93]

Re : Protéger la feuille en VBA

Re

sinon, déprotéger également toutes les cellules fusionnées :

Range("J6:L6,J9:S9").Locked = False
Sheets("Feuil1").Protect "toto"

@+

Edition : bonsoir bhbh

 

[tototiti2008]

Re : Protéger la feuille en VBA

Vois si ça te convient

 

[lamho27]

Re : Protéger la feuille en VBA

merci tototiti2008