Ô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:

Oter la protection de plusieurs feuilles excel
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Fusionner plusieurs feuilles excel en une seule - Guide
Feuille de pointage excel - Télécharger - Tableur

4 réponses

Réponse 1 / 4

scinarf Messages postés 1098 Date d'inscription samedi 18 novembre 2006 Statut Membre Dernière intervention 25 septembre 2014 252
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

Réponse 2 / 4

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

Réponse 3 / 4

scinarf Messages postés 1098 Date d'inscription samedi 18 novembre 2006 Statut Membre Dernière intervention 25 septembre 2014 252
23 mai 2013 à 16:49

No pb, pleisure it's mine

Réponse 4 / 4

foo
23 mai 2013 à 17:16

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

Newsletters