Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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)...
Trier par date Trier par votes

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:
Vote positif 0 Vote négatif
Solution

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
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Le fil

As tu essayé les codes du post 2 ?
La flamme à dit:
A la fin les feuilles restent verouiller ?
Cliquez pour agrandir...
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:
Vote positif 0 Vote négatif

La flamme

XLDnaute Junior
Phil69970 à dit:
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
Cliquez pour agrandir...
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
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
1 K
Tartine
T
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
645
laurent950
E
  • Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
408
merinos-BernardEtang
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
536
Corentin26270
C
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
511
chaelie2015
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
530
crazy
C
  • Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
407
crocrocro
C
A
  • Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
515
AD95
A
  • Résolu(e)
XL 2013 (RESOLU) Protection automatique des nouvelles feuilles
Réponses
6
Affichages
491
Phil69970
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
712
Thomi
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…