Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Jean-François,
En supposant que tu souhaites protéger/déprotéger uniquement les feuilles 1 et 3 du classeur... Dans un module:
Sub proTect() Dim wS As Worksheet Application.ScreenUpdating = False For Each wS In Sheets(Array("Feuil1", "Feuil3")) wS.proTect Password:="mdp" Next wS End Sub
Sub deproTect() Dim wS As Worksheet Application.ScreenUpdating = False For Each wS In Sheets(Array("Feuil1", "Feuil3")) wS.Unprotect Password:="mdp" Next wS End Sub
ChrisV
"Jean-François" a écrit dans le message de news: 09f101c3d528$5218c8f0$ Bonjour,
Je souhaiterai protéger ou déprotéger plusieurs feuilles EXCEL 2000 avec le même mot de passe, en une seule action.
Pouvez vous m’aider.
Merci Jean-François
Bonjour Jean-François,
En supposant que tu souhaites protéger/déprotéger uniquement les feuilles 1
et 3 du classeur...
Dans un module:
Sub proTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.proTect Password:="mdp"
Next wS
End Sub
Sub deproTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.Unprotect Password:="mdp"
Next wS
End Sub
ChrisV
"Jean-François" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 09f101c3d528$5218c8f0$a501280a@phx.gbl...
Bonjour,
Je souhaiterai protéger ou déprotéger plusieurs feuilles
EXCEL 2000 avec le même mot de passe, en une seule action.
En supposant que tu souhaites protéger/déprotéger uniquement les feuilles 1 et 3 du classeur... Dans un module:
Sub proTect() Dim wS As Worksheet Application.ScreenUpdating = False For Each wS In Sheets(Array("Feuil1", "Feuil3")) wS.proTect Password:="mdp" Next wS End Sub
Sub deproTect() Dim wS As Worksheet Application.ScreenUpdating = False For Each wS In Sheets(Array("Feuil1", "Feuil3")) wS.Unprotect Password:="mdp" Next wS End Sub
ChrisV
"Jean-François" a écrit dans le message de news: 09f101c3d528$5218c8f0$ Bonjour,
Je souhaiterai protéger ou déprotéger plusieurs feuilles EXCEL 2000 avec le même mot de passe, en une seule action.
Pouvez vous m’aider.
Merci Jean-François
Daniel.j
Bonsoir, un exemple ici http://dj.joss.free.fr/feuil.htm#protectfeuille
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Jean-François" a écrit dans le message de news: 09f101c3d528$5218c8f0$ Bonjour,
Je souhaiterai protéger ou déprotéger plusieurs feuilles EXCEL 2000 avec le même mot de passe, en une seule action.
Pouvez vous m’aider.
Merci Jean-François
Bonsoir,
un exemple ici
http://dj.joss.free.fr/feuil.htm#protectfeuille
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Jean-François" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
09f101c3d528$5218c8f0$a501280a@phx.gbl...
Bonjour,
Je souhaiterai protéger ou déprotéger plusieurs feuilles
EXCEL 2000 avec le même mot de passe, en une seule action.
