[VBA] Formulaire pilotant la protection du classeur

Bonjour Ralph, le forum

Le principe est :

1)Tu déprotèges ta feuille avec le code VBA si ton mot de passe est Toto cela donne cela :

ActiveSheet.Unprotect "toto" ou Worksheets ("Feuil1").Unprotect "toto"

2)Ton code VBA pour insérer ta ligne

3)Et ensute tu reprotèges ta feuille comme cela :

ActiveSheet.Protect "toto" ou Worksheets ("Feuil1").protect "toto"

@Phil69970

Bonsoir @Phil69970,

Donc je n'étais pas trop loin de mon but. Gggrr...
Et cela fonctionne, sauf la dernière instruction.

À savoir le fait de protéger à nouveau la feuille par ActiveSheet.Protect "toto"
> Mon classeur reste modifiable complètement...

R@lph45

Re
Essaye plutôt ça pour la reprotection (j'ai écrit trop vite )

ActiveSheet.Protect Password:="toto" ou Worksheets ("Feuil1").protect Password:="toto"

@Phil69970

Re,

Same player shoot again...
J'ai toujours mes cellules modifiables en fin d'exercice avec les 2 codes.

R@lph

Re

Un fichier anonyme .... pour voir ça.

@Phil69970

Heu... le même que celui de mon 1er post, modifié par nos derniers échanges...

Bonsoir,
Au vu du code, vous déchargez l'userform puis vous essayez d'exécuter une sub de celui-ci pour ré-protéger la feuille . Faites d'abord la re-protection avant le déchargement ...
N'oubliez pas de verrouiller vos cellules à protéger..

Bonjour à tous

Voici le fichier revu et corrigé.
J'ai laissé ton userForm pour le fun mais il ne sert plus à rien et j'ai rajouté un bonus avec le fichier ...

@Phil69970

Bonjour @tou.te.s,

@Phil69970
@fanch55

Vous avez solutionné le souci d'une manière impeccable.
>> Je vous donne mes décisions & remarques :

1° Le fait de quitter le formulaire avant de protéger à nouveau les cellules était bien le point enquiquinant de la procédure ;

2° Les cellules à protéger sont bel et bien définies à l'origine. Seules les cellules en fond vert sont modifiables en mode protégé. Les autres, non, ce qui interdit - entre autres - les insertions et/ou suppressions de lignes/colonnes ;

3° Je garde l'Userform1, car pour cet exemple, il ne me servait qu'à ajouter cette fameuse ligne. Dans un avenir très proche, il servira notamment à saisir des valeurs via des textbox, listes déroulantes, boutions option, etc... Je garde par contre le code permettant d'accéder à la dernière ligne ;

4° En bonus, l'option de supprimer une ligne est très intéressante, mais ce n'est pas forcément toujours la dernière ligne à supprimer. Il faudrait pour cela au préalable demander quelle est la ligne à supprimer. Et en l'absence (dans ce fichier exemple) d'une clé unique permettant d'identifier une et une seule ligne... Mais c'est une piste à envisager.

Encore merci de votre temps passé sur le sujet et je clos ce fil...

Bonne journée !

R@lph45