XL 2013 Macro dans les cellules verrouillé

[La flamme]

Bonjour svp j'ai un soucis avec mon classeur. J'aimerai exécuter une macro sur plusieurs feuilles verouillées sans toute fois les dévérouillées. Mon code qui est le suivant s'exécute bien mais à la fin laisse les feuilles dérouillées .
Private Sub Workbook_Open
Dim Ws As Worksheet
For each Ws In ThisWorkbook.Worksheets
Ws.ProtectPassword:="####",
UserInterFaceOnly:=True
Next Ws
End Sub
J'ai mis le même mot de passe sur toutes les feuilles et mon code est dans ThisWorkbook. Merci d'avance


Cordialement

 

[Phil69970]

Bonjour La flamme, le forum

'1er cas on gère toutes les feuilles en même temps
Sub Blocage() 'Protege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"   '(MdP à adapter)
Next ws
End Sub

Sub Deblocage() 'Déprotege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect "toto"   '(MdP à adapter)
Next ws
End Sub


'************
'2eme cas on gère feuille par feuille
Sub blabla()
'On déprotège LA feuille et seulement celle que l'on souhaite (nom de la feuille à adapter)
Worksheets("Feuil1").Unprotect Password:="toto"   '(MdP à adapter)

'On exécute le code....
'blablabla

'On reprotège LA feuille (nom de la feuille à adapter)
Worksheets("Feuil1").Protect Password:="toto"   '(MdP à adapter)
End Sub

@Phil69970

 

[La flamme]

Merci pour votre réponse mais ça ne fonctionne pas chez moi et j'ignore la raison.
Le but est qu'un utilisateur Lambda puisse modifier les données depuis une macro qui conditionne plusieurs traitements sans toute fois accès à la modification des données directement sur les dites feuilles . Merci d'avance


Cordialement

 

[Phil69970]

Bonjour La flamme, le forum

Si tu fais l'essai dans un fichier vierge mes codes fonctionnent, traitement de toutes les feuilles et traitement individuel feuille par feuille.
Autrement mets un fichier anonymisé ....

@Phil69970

 

[La flamme]

A la fin les feuilles restent verouiller ?

Bonjour La flamme, le forum

Si tu fais l'essai dans un fichier vierge mes codes fonctionnent, traitement de toutes les feuilles et traitement individuel feuille par feuille.
Autrement mets un fichier anonymisé ....

@Phil69970

 

[Phil69970]

Le fil

As tu essayé les codes du post 2 ?

A la fin les feuilles restent verouiller ?

Le principe quand tu as des feuilles verrouillées :
Quand tu veux faire une action, tu déprotèges la ou les feuilles, tu fais ton/tes action(s) et après tu reprotèges la ou les feuilles...
Voir fichier

@Phil69970

 

[La flamme]

Bonjour La flamme, le forum

Si tu fais l'essai dans un fichier vierge mes codes fonctionnent, traitement de toutes les feuilles et traitement individuel feuille par feuille.
Autrement mets un fichier anonymisé ....

@Phil69970

Je joins mon fichier il a 4 macro et agit sur 3 ffeuilles j'ai verouillé par "OUI" Merci d'avance

Cordialement

 

[Phil69970]

Le fil

Tu as dans ton fichier une feuille "fantôme" non supprimable ce qui provoque des dysfonctionnements dans
ton fichier.

Je ne sais pas d’où cela vient.
J'ai récréer le fichier pour supprimer le pb.

Pour revenir à ta demande je te joins le fichier modifié en conséquence.
Tu ne peux rien modifier en manuel dans aucune feuille sauf la feuille "F"
Toutes les macros que tu créeras pourront se lancer normalement que la feuille soit protéger ou non.

Si tu veux faire des tests tu actives l'un ou l'autre des 2 boutons suivants :

Les boutons peuvent être supprimer en version définitive....

@Phil69970

 

[La flamme]

Je suis toujours en attente pour le fichier teste.
Cordialement

 

[Phil69970]

oups j'ai oublié le fichier ....
Et j'attendais ton avis !!!

@Phil69970

 

[La flamme]

Il n'existe pas un code qui permet à la macro d'être exécuter sur les feuilles verouillées ?
Cordialement

 

[La flamme]

oups j'ai oublié le fichier ....
Et j'attendais ton avis !!!

@Phil69970

Merci bien je vérifie et je reviens .
Moi même j'étais tellement pris je viens de me libérer.

 

[La flamme]

oups j'ai oublié le fichier ....
Et j'attendais ton avis !!!

@Phil69970

Ok cool là ça fonctionne je fais une sieste et après je vais essayer de l'adapter à mon fichier pour voir si ça va tenir. Merci grandement
Cordialement