ôter protection de plusieurs feuilles (ici 150)

Résolu/Fermé
noila59216
Messages postés
34
Date d'inscription
jeudi 13 septembre 2018
Statut
Membre
Dernière intervention
18 avril 2019
- 13 sept. 2018 à 13:43
noila59216
Messages postés
34
Date d'inscription
jeudi 13 septembre 2018
Statut
Membre
Dernière intervention
18 avril 2019
- 14 sept. 2018 à 12:14
Bonjour,
est il possible d'ôter la protection de 150feuilles d'un seul coup ???? j'en ai qui sont déjà ôter mais pas toutes .... merci de votre aide




A voir également:

2 réponses

titeufdu89
Messages postés
374
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
25 juillet 2022
37
13 sept. 2018 à 13:55
Bonjour Noila,

Colle le code suivant dans un module de ton fichier et lance la macro depuis "Macro" dans l'onglet "Developpeur", il ôtera la protection de chacune des feuilles de ton classeur.

Sub deproteger()
Dim ws As Worksheet

For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
ws.Unprotect
Next i

End Sub


Bonne journée

Jc
1
titeufdu89
Messages postés
374
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
25 juillet 2022
37
13 sept. 2018 à 14:42
Petit précision, dès lors qu'un classeur contient des macros (automatisation), il convient d'enregistrer le classeur au format XLSM (prenant en charge les macros) donc enregistre-sous ton classeur au bon format pour pouvoir utiliser cette macro.

Jc
0
noila59216
Messages postés
34
Date d'inscription
jeudi 13 septembre 2018
Statut
Membre
Dernière intervention
18 avril 2019

13 sept. 2018 à 17:06
merciiiiiiiiiiiii
j'fais ça demain .....
0
noila59216
Messages postés
34
Date d'inscription
jeudi 13 septembre 2018
Statut
Membre
Dernière intervention
18 avril 2019

14 sept. 2018 à 12:14
yess ça marche ... j'espère que je saurais le refaire ultétrieurement
0
ccm81
Messages postés
10419
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 août 2022
2 306
13 sept. 2018 à 14:40
Bonjour à tous les deux

Et si les feuilles sont protégées par le même mot de passe mdp
ws.Unprotect "mdp"

Cdlmnt
0