Ôter la protection de toutes les feuilles de calcul Excel2010 Fermé

Question

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.


Configuration: Windows 7 / Firefox 21.0

scinarf · Answer

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

GeorgioV · Answer

Thanks so much.
:-)

scinarf · Answer

No pb, pleisure it's mine

foo · Answer

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