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
papou
Bonjour Paul Pas possible sans macro Avec macro (changer/ajouter les noms de feuilles et modifier le mot de passe "titi"): Sub ProtegerFeuilles() Dim ListeFeuilles As Variant ListeFeuilles = Array("Feuil1", "Feuil2") For i = LBound(ListeFeuilles) To UBound(ListeFeuilles) ThisWorkbook.Sheets(ListeFeuilles(i)).Protect ("titi") Next i End Sub
Cordialement Pascal
"Paul" a écrit dans le message de news:70be01c3e6e2$bf6c9eb0$
Y a t-il moyen de proteger plusieurs feuilles a la fois au lieu de les faires une a une.
Merci
Bonjour Paul
Pas possible sans macro
Avec macro (changer/ajouter les noms de feuilles et modifier le mot de passe
"titi"):
Sub ProtegerFeuilles()
Dim ListeFeuilles As Variant
ListeFeuilles = Array("Feuil1", "Feuil2")
For i = LBound(ListeFeuilles) To UBound(ListeFeuilles)
ThisWorkbook.Sheets(ListeFeuilles(i)).Protect ("titi")
Next i
End Sub
Cordialement
Pascal
"Paul" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:70be01c3e6e2$bf6c9eb0$a401280a@phx.gbl...
Y a t-il moyen de proteger plusieurs feuilles a la fois
au lieu de les faires une a une.
Bonjour Paul Pas possible sans macro Avec macro (changer/ajouter les noms de feuilles et modifier le mot de passe "titi"): Sub ProtegerFeuilles() Dim ListeFeuilles As Variant ListeFeuilles = Array("Feuil1", "Feuil2") For i = LBound(ListeFeuilles) To UBound(ListeFeuilles) ThisWorkbook.Sheets(ListeFeuilles(i)).Protect ("titi") Next i End Sub
Cordialement Pascal
"Paul" a écrit dans le message de news:70be01c3e6e2$bf6c9eb0$
Y a t-il moyen de proteger plusieurs feuilles a la fois au lieu de les faires une a une.
