Je souhaite protéger les feuilles d'un classeur qui en contient beaucoup. De
telle manière que seule la première soit modifiable toutes les autres devant
être visibles mais inaccessibles. Comment puis-je faire sans avoir à repéter
la manoeuvre fastidieuse sur chacune des feuilles. Si j'utilise l'option
protéger le classeur, j'arrive toujours à effacer des éléments sur les
feuilles normalement intouchables.
merci
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
michdenis
Bonjour Pierre,
Place cette macro dans un module Standard Le mot de passe retenu est "toto" ...tu peux le modifier !
N.B La protection de toutes les feuilles <> protection du classeur Voir dans l'aide ....cela reprsésente 2 choses distinctes.
Remplace NomFeuilleAccessible par le nom de ta feuille de ton application qui doit demeurer accessible '------------------------ Sub ProtégerFeuilles() Dim Sh as Worksheets For each sh in worksheets if sh.name <> "NomFeuilleAccessible" then sh.protect "toto",true,true,true End if end if End Sub '------------------------
Salutations!
"Pierre" a écrit dans le message de news:41714f9c$0$27886$ Je souhaite protéger les feuilles d'un classeur qui en contient beaucoup. De telle manière que seule la première soit modifiable toutes les autres devant être visibles mais inaccessibles. Comment puis-je faire sans avoir à repéter la manoeuvre fastidieuse sur chacune des feuilles. Si j'utilise l'option protéger le classeur, j'arrive toujours à effacer des éléments sur les feuilles normalement intouchables. merci
Bonjour Pierre,
Place cette macro dans un module Standard
Le mot de passe retenu est "toto" ...tu peux le modifier !
N.B La protection de toutes les feuilles <> protection du classeur
Voir dans l'aide ....cela reprsésente 2 choses distinctes.
Remplace NomFeuilleAccessible par le nom de ta feuille de ton application qui doit demeurer accessible
'------------------------
Sub ProtégerFeuilles()
Dim Sh as Worksheets
For each sh in worksheets
if sh.name <> "NomFeuilleAccessible" then
sh.protect "toto",true,true,true
End if
end if
End Sub
'------------------------
Salutations!
"Pierre" <pierre.pinede@wanadoo.fr> a écrit dans le message de news:41714f9c$0$27886$8fcfb975@news.wanadoo.fr...
Je souhaite protéger les feuilles d'un classeur qui en contient beaucoup. De
telle manière que seule la première soit modifiable toutes les autres devant
être visibles mais inaccessibles. Comment puis-je faire sans avoir à repéter
la manoeuvre fastidieuse sur chacune des feuilles. Si j'utilise l'option
protéger le classeur, j'arrive toujours à effacer des éléments sur les
feuilles normalement intouchables.
merci
Place cette macro dans un module Standard Le mot de passe retenu est "toto" ...tu peux le modifier !
N.B La protection de toutes les feuilles <> protection du classeur Voir dans l'aide ....cela reprsésente 2 choses distinctes.
Remplace NomFeuilleAccessible par le nom de ta feuille de ton application qui doit demeurer accessible '------------------------ Sub ProtégerFeuilles() Dim Sh as Worksheets For each sh in worksheets if sh.name <> "NomFeuilleAccessible" then sh.protect "toto",true,true,true End if end if End Sub '------------------------
Salutations!
"Pierre" a écrit dans le message de news:41714f9c$0$27886$ Je souhaite protéger les feuilles d'un classeur qui en contient beaucoup. De telle manière que seule la première soit modifiable toutes les autres devant être visibles mais inaccessibles. Comment puis-je faire sans avoir à repéter la manoeuvre fastidieuse sur chacune des feuilles. Si j'utilise l'option protéger le classeur, j'arrive toujours à effacer des éléments sur les feuilles normalement intouchables. merci
