XL 2016 Enlever la protection en 1 fois de toutes les onglets

laeti95

XLDnaute Occasionnel
Bonjour,
J'ai un fichier avec 36 onglets.
Le problème je dois faire des modifs et pour cela je dois enlever le mot de passe feuille par feuille et c'est très long
Ma question : est-il possible de enlever le mot de passe de toutes les feuilles en une fois ?
J'ai essayée de sélectionner toutes les feuilles mais pas possible d'enlever le mor de passe c'est grisé et non fonctionel.

Merci d'avance pour vos lumières

Laeti
 

GALOUGALOU

XLDnaute Accro
Private Sub ProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="MDP"
Next
End Sub




Private Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="MDP"
Next
End Sub
bonjour laeti95
macro pour enlever et poser MDP
remplacer MDP par votre mot de passe
exécuter la macro
cordialement
galougalou
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Juste pour varier les plaisirs
(en mettant la protection/de-protection dans une seule macro paramétrée)
VB:
Sub proteger()
Verrou "toto"
End Sub
Sub deproteger()
Verrou "toto", False
End Sub

Private Sub Verrou(Passwd As String, Optional Ouvert As Boolean = True)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case Ouvert
Case True
ws.Protect Passwd
Case False
ws.Unprotect Passwd
End Select
Next
End Sub
 

laeti95

XLDnaute Occasionnel
Bonsoir le fil

Juste pour varier les plaisirs
(en mettant la protection/de-protection dans une seule macro paramétrée)
VB:
Sub proteger()
Verrou "toto"
End Sub
Sub deproteger()
Verrou "toto", False
End Sub

Private Sub Verrou(Passwd As String, Optional Ouvert As Boolean = True)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case Ouvert
Case True
ws.Protect Passwd
Case False
ws.Unprotect Passwd
End Select
Next
End Sub
Bonsoir
 

GALOUGALOU

XLDnaute Accro
il ne faut pas se laisser impressionner,
pas a pas
ouvrir l'éditeur de macro avec la combinaison de touche alt + f11

clic droit et dans la liste a gauche et insérer un module

copier le code ci dessous et coller dans le module

Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="MDP"
Next
End Sub

remplacer MDP par votre mot de passe

positionner le curseur dans la macro, a cote de sub deprotegefeuilles et appuyer sur la touche, F5, la macro va s'exécuter et les feuilles de vos classeurs seront déprotégés

un brin de philosophie
les problèmes (là l'informatique) c'est l'art de compliquer les choses simples. ça parait compliqué, et c'est décourageant, prenons le problème doucement, et pas à pas........nous allons réussir !!!

essayer et vous allez voir, vous allez réussir
cordialement
galougalou
 

GALOUGALOU

XLDnaute Accro
bonsoir laeti95
je suis super content de votre réussite
pour proteger
même procédure mais avec le code ci dessous

Sub ProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="MDP"
Next
End Sub


précision
Une fois comprise, cette prodédure de base demande a être simplifié
finalement votre prochaine étape

cordialement
galougalou
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Bonsoir,
Merci mais pas possible pour moi, c'est trop complexe,
Euh, comment dire?
Il est donc plus difficile d'utiliser une seule macro pour protéger/déprotéger (voir message#3) que deux macros ?
Dans les deux cas, on utilise du VBA.
Mais il est vrai que je n'ai pas pris le temps d'expliquer comment on copie/colle une macro dans Excel et comment on l’exécute.
(ce qu'à fait GALOUGALOU, merci à lui)

[petit titillement amical avant le brossage de dent et la petite chanson du soir]
C'est un exces d'optimisme de ma part, car je pars toujours du principe que le demandeur est de nature curieuse et que G..gle est son ami ;)
[/petit titillement amical avant le brossage de dent et la petite chanson du soir]
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo