Ôter la protection de toutes les feuilles de calcul Excel2010

Fermé
GeorgioV - Modifié par GeorgioV le 23/05/2013 à 16:24
 foo - 23 mai 2013 à 17:16
Bonjour,
Je souhaiterais enlever la protection de toutes les feuilles de calcul d'un classeur Excel 2010 en une seule opération. Cela évite de passer de feuille en feuille de calcul et de rentrer à chaque fois le même mot de passe, ce qui pour des classeurs avec de nombreuses feuilles de calculs devient abrutissant!
Si quelqu'un connaît la solution, il a toute ma reconnaissance et mille mercis.


A voir également:

4 réponses

scinarf
Messages postés
1098
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
290
23 mai 2013 à 16:25
Application.screenUpdating = false

dim i as Integer
For i = 1 to Sheets.count
sheets(i).unprotect "mot de passe"
next i

Application.screenUpdating = true

Voila pour vous.

Bonne journée
0
GeorgioV
Messages postés
8
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
23 mai 2013

23 mai 2013 à 16:45
Thanks so much.
:-)
0
scinarf
Messages postés
1098
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
290
23 mai 2013 à 16:49
No pb, pleisure it's mine
0
Bonjour

regarde bien sur le site tu a la reponse
mes bon

Nf = ActiveWorkbook.Sheets.Count
For I = 1 To Nf
Worksheets(I).Unprotect 'Password:="open"
Next I

A+

Maurice
0