Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'------------------------------------- Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3") With Worksheets(Elt) .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With Next
End Sub '-------------------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger ! Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple. '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil3") .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With
End Sub '-------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient ton projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à la droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" a écrit dans le message de news:
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille : '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil1") .EnableOutlining = True .Protect 'mot de passe si besoin ... End With
End Sub '------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une feuille lorsque la feuille est protéger?
Merci beaucoup à tous
Bonsoir Jo-Julie,
Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'-------------------------------------
Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3")
With Worksheets(Elt)
.EnableOutlining = True
.Protect contents:=True, userInterfaceOnly:=True
End With
Next
End Sub
'-------------------------------------
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
0258D868-112C-4944-83DD-BF3F85E7393B@microsoft.com...
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de
tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait
la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger !
Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple.
'------------------------
Private Sub Workbook_Open()
With Worksheets("Feuil3")
.EnableOutlining = True
.Protect contents:=True, userInterfaceOnly:=True
End With
End Sub
'-------------------------
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
44FDCA5A-E6A0-4A5A-B40C-71972C56FE92@microsoft.com...
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas
afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient
ton
projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à
la
droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
BF744925-5916-40DE-AA34-58A4266D7C79@microsoft.com...
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus
sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille :
'------------------------
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableOutlining = True
.Protect 'mot de passe si besoin ...
End With
End Sub
'------------------------
Salutations!
"Jo-Julie" <Jo-Julie@discussions.microsoft.com> a écrit dans le message de news:
E5384ED0-DC57-4B69-B746-E7FA1D4545D4@microsoft.com...
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une
feuille lorsque la feuille est protéger?
Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'------------------------------------- Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3") With Worksheets(Elt) .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With Next
End Sub '-------------------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger ! Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple. '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil3") .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With
End Sub '-------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient ton projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à la droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" a écrit dans le message de news:
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille : '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil1") .EnableOutlining = True .Protect 'mot de passe si besoin ... End With
End Sub '------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une feuille lorsque la feuille est protéger?
Merci beaucoup à tous
Jo-Julie
Merci de ta rapide réponse...
J'avais entre temps essayé ce que tu viens de me proposer et tout fonctionne super bien.
Merci beaucoup!!! Encore une fois
Ciao
Julie
Bonsoir Jo-Julie,
Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'------------------------------------- Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3") With Worksheets(Elt) .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With Next
End Sub '-------------------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger ! Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple. '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil3") .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With
End Sub '-------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient ton projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à la droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" a écrit dans le message de news:
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille : '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil1") .EnableOutlining = True .Protect 'mot de passe si besoin ... End With
End Sub '------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une feuille lorsque la feuille est protéger?
Merci beaucoup à tous
Merci de ta rapide réponse...
J'avais entre temps essayé ce que tu viens de me proposer et tout fonctionne
super bien.
Merci beaucoup!!! Encore une fois
Ciao
Julie
Bonsoir Jo-Julie,
Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'-------------------------------------
Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3")
With Worksheets(Elt)
.EnableOutlining = True
.Protect contents:=True, userInterfaceOnly:=True
End With
Next
End Sub
'-------------------------------------
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
0258D868-112C-4944-83DD-BF3F85E7393B@microsoft.com...
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de
tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait
la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger !
Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple.
'------------------------
Private Sub Workbook_Open()
With Worksheets("Feuil3")
.EnableOutlining = True
.Protect contents:=True, userInterfaceOnly:=True
End With
End Sub
'-------------------------
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
44FDCA5A-E6A0-4A5A-B40C-71972C56FE92@microsoft.com...
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas
afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient
ton
projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à
la
droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" <JoJulie@discussions.microsoft.com> a écrit dans le message de news:
BF744925-5916-40DE-AA34-58A4266D7C79@microsoft.com...
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus
sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille :
'------------------------
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableOutlining = True
.Protect 'mot de passe si besoin ...
End With
End Sub
'------------------------
Salutations!
"Jo-Julie" <Jo-Julie@discussions.microsoft.com> a écrit dans le message de news:
E5384ED0-DC57-4B69-B746-E7FA1D4545D4@microsoft.com...
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une
feuille lorsque la feuille est protéger?
J'avais entre temps essayé ce que tu viens de me proposer et tout fonctionne super bien.
Merci beaucoup!!! Encore une fois
Ciao
Julie
Bonsoir Jo-Julie,
Oui c'est la même syntaxe, sauf que tu modifies le nom de la feuille dans la procédure.
ou
tu peux aussi utiliser ceci en remplaçant les noms de feuilles par ceux de ton application.
'------------------------------------- Private Sub Workbook_Open()
for each Elt In array("Feuil1","Feuil3") With Worksheets(Elt) .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With Next
End Sub '-------------------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour MichDenis
Super... tout fonctionne à merveille... Merci beaucoup de ta patience et de tout tes explications...
Dernière question : Si je veux l'appliquer à une autre fuille quelle serait la syntaxe
Merci encore
Julie
Bonjour Julie,
A ) Le plan se doit d'être affiché avant de protéger la feuille... donc déjà ouvert dans la feuille à protéger ! Sans cela, les commandes ne sont pas disponibles.
B ) Ceci c'est la macro à exécuter à l'ouverture du fichier. à copier dans le ThisWorkbook de ton classeur.
C ) Si tu places ton curseur sur le mot "EnableOutlining" et tu appuies sur l'aide ...excel va te fournir cet exemple. '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil3") .EnableOutlining = True .Protect contents:=True, userInterfaceOnly:=True End With
End Sub '-------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Merci beaucoup...
Tout trouvé merci encore
Mais....
Ca ne fonctionne pas lorsque je protège ma feuille, je ne peux toujours pas afficher les groupes
Julie
Bonjour Jo-Julie,
Tu ouvres VBE (visual basic editor) , raccourci clavier : Alt + F11
si dans la fenêtre de gauche, tu double-cliques sur ton projet, tu vas ouvrir l'arborescence des objets que contient ton projet. Dans la liste, il y a un item appelé Workbook, si tu double-cliques sur cet item, il y a une page blanche à la droite de la fenêtre qui s'ouvrira... tu copies le code dans cette fenêtre.
Salutations!
"Jo-Julie" a écrit dans le message de news:
BOnjour MIchDenis
Merci beaucoup de ton aide mais j'aurais besoin que tu m'éclaire un peu plus sur le "This Workbook" de mon classeur
Merci beaucoup du temps que tu m'accordes
Salutation
Julie
Bonsoir Jo-Julie,
Protège ta feuille de cette manière :
Insère la procédure suivante dans le ThisWorkbook de ton classeur.
Tu fermes et à la ré-ouverture tu devrais avoir le résultat escompté :
'Adapte le nom de la feuille : '------------------------ Private Sub Workbook_Open()
With Worksheets("Feuil1") .EnableOutlining = True .Protect 'mot de passe si besoin ... End With
End Sub '------------------------
Salutations!
"Jo-Julie" a écrit dans le message de news:
Bonjour à tous.
Est-il possible de permettre l'ouverture et la fermture des groupes dans une feuille lorsque la feuille est protéger?
