protection feuilles de calcul

Bonsoir,
Copie la procédure ci dessous dans un module ordinaire :

Sub Macro1()
'MPFE le 26/02/2009
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Sheets(i).EnableSelection = xlUnlockedCells
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"jaloulou" <BIDON@bidon.fr> a écrit dans le message de
news:49a6e420$0$17783$ba4acef3@news.orange.fr...

bonjour à tous
existe-t-il un moyen rapide pour protéger en une seule fois treize
feuilles de calcul.
?
je ne veux pas faire 13 fois "outil-protection-protéger la feuille"
merci pour votre aide
bonne soirée

Bonsoir,

Ou encore...;o)

Avec mot de passe "toto", les macros actives et les feuilles protégées
'--------------
Sub jj()
For i = 1 To ThisWorkbook.Worksheets.Count
Sheets(i).Protect "toto", True, True, True, True
Next
End Sub
-----------------
Sans mot de passe
'----------------
Sub jj1()
For i = 1 To ThisWorkbook.Worksheets.Count
Sheets(i).Protect , True, True, True, True
Next
End Sub
'----------------
--
Salutations
JJ


"jaloulou" <BIDON@bidon.fr> a écrit dans le message de news:
49a6e420$0$17783$ba4acef3@news.orange.fr...

bonjour à tous
existe-t-il un moyen rapide pour protéger en une seule fois treize
feuilles de calcul.
?
je ne veux pas faire 13 fois "outil-protection-protéger la feuille"
merci pour votre aide
bonne soirée