protection feuilles de calcul

Le
jaloulou
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18772401
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" news:49a6e420$0$17783$
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




Jacky
Le #18772631
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" 49a6e420$0$17783$
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




Publicité
Poster une réponse
Anonyme