Ôter la protection de toutes les feuilles de calcul Excel2010
GeorgioV
-
foo -
foo -
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.
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.
4 réponses
-
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 -
-
-
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
