Grouper/Dissocier des lignes dans feuille protégée

  • Initiateur de la discussion Initiateur de la discussion tinet
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tinet

XLDnaute Impliqué
Bonsoir le forum,

Après avoir fait des recherches je n'ai pas trouvé de solution.

Voici mon problème.

Quand on utilise dans une feuille la fonction groupée et dissocier des lignes avec une protection.
cette fonction est inactive.
Je ne souhaitent pas enlever la protection

La solution que j'ai trouvée et de rajouter dans ThisWorbook cette fonction qui marche très bien pour une feuille

Private Sub Workbook_Open()
With Sheets("Feuil1")
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
End Sub

Mon problème est, comment faire pour toutes les feuilles du classeur.
En sachant que je ne connais pas d'avance le nom des feuilles qui seront créées.

La feuill1 et le modèle, qui sera dupliqué en fonction de la demande, puis ses feuilles seront renommées.

est-ce que quelqu'un à trouver une solution à ce type de problème

merci de votre aide
 
Re : Grouper/Dissocier des lignes dans feuille protégée

Bonsoir,

Comme ceci cela devrait fonctionner

Code:
Private Sub Workbook_Open()
dim Onglet as worksheet
for each onglet in thisworkbook.worksheets
With onglet
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
next onglet
End Sub
 
Re : Grouper/Dissocier des lignes dans feuille protégée

bonsoir
Camarchepas.

Un plus, aprés la création d'une copie, il faut faire une sauvegarde
Sortir du fichier pour que la feuille soi prise en compte.

Si pas d'autre solution je fais avec.
 
Re : Grouper/Dissocier des lignes dans feuille protégée

Dans le même module thisworkbook qui contient déjà le workbook_open

Ajoute l'évenementiel nouvelle feuille comme ci dessous

Code:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour