Groupage degroupage lignes et colonnes sur feuilles protégée

Salut à tous,

Voilà, j'arrive à la finalisation de mon fichier excel gràce à votre aide à tous, mais au moment de protéger chaque feuille de calcul, je me rends compte que après protection, il m'est impossible de dégrouper mes groupes de lignes et de colonnes.

Je suis allé sur le net pour trouver une solution, et la seule à priori serait de faire une macro VBA, j'ai bien essayé de rentrer les séquences que j'ai trouvé, mais le problème est que je suis une vraie quiche en VBA et je n'ai donc jusque là pas réussi.

Petite précision: il faudrait que la macro puisse s'exécuter dès l'ouverture de mon fichier excel.

Voilà les 2 séquences qu'ont ma proposé et que je n'ai pas réussi à faire fonctionner:

Private Sub Workbook_Open()

With Worksheets("Feuil1")

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True

End With

End Sub

EnableAutoFilter

UserInterfaceOnly

EnableOutlining

La deuxième:

Private Sub Workbook_Open()

With Worksheets("Feuil1")

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True

With Worksheets("Feuil2")

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True

End With

End With

End Sub

Merci beaucoup !!

Bonjour mraxone ,

Bon, j'essaie de t'aider mais pas sur d'y arriver...

Voici ton fichier en pj, 2 solutions pour résoudre ton problème:

* via des boutons (module 1)

Sub Fermé()
    ActiveSheet.Unprotect "Mot de passe"
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub
Sub Ouvert()
    ActiveSheet.Unprotect "Mot de passe"
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
       False
End Sub

* via un code

Private Sub Worksheet_Activate()
ActiveSheet.EnableOutlining = True  'permet de garder la fonctionnalité PLANS
ActiveSheet.Protect UserInterfaceOnly:=True, _
DrawingObjects:=False, Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowDeletingRows:=True, _
AllowFormattingRows:=True, _
AllowInsertingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

J'ai fait les 2 modif dans la feuille "Suivi conso motopompe" uniquement... Attention !! Dans le module 1, entre ton mot de passe, je n'ai pas pu le faire.

Qu'en penses-tu ?

Amicalement

Salut Alden et un grand merci,

Pas mal, mais je voudrais pouvoir degrouper mes groupes de lignes indépendamment et pas tous les groupes en meme temps.

Les boutons fonctionnent, mais j'ai pas l'impression pour le code. Est-ce que je dois activer quelquechose (j ai pourant activé les macros dans confidentialité.

En tout cas merci

Bonsoir,

Je n'ai pas beaucoup de mérite, j'ai eu un problème similaire et Amadeus m'est très gentiment venu en aide (merci encore)!!

Il faut que tu choississes l'une ou l'autre des solutions, normalement les 2 fonctionnent!

A+