XL 2013 Macro dans les cellules verrouillé

La flamme

XLDnaute Junior
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
 
Solution
Bonjour La flamme, le forum

VB:
'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)...

Phil69970

XLDnaute Barbatruc
Bonjour La flamme, le forum

VB:
'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
 
Dernière édition:

La flamme

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Protection feuille.xlsm
    22.8 KB · Affichages: 6
Dernière édition:

La flamme

XLDnaute Junior
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
 

Pièces jointes

  • TEST DE SECURITE.xlsm
    40.2 KB · Affichages: 4

Phil69970

XLDnaute Barbatruc
Le fil

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

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 :

1614348229301.png

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

@Phil69970
 
Dernière édition:

Discussions similaires

Réponses
14
Affichages
354
Compte Supprimé 979
C