Dégrouper des cellules verrouillées

Bonjour à tous,

J'ai un fichier dans lequel j'ai verrouillé certaines cellules. Lorsque je protège ma feuille, je ne peux plus dégroupé certaines colonnes que j'ai groupé. Existe t-il un moyen de contourner ce problème?

J'ai trouvé un début de solution mais je ne sais pas la faire fonctionner :

Private Sub Workbook_Open()

With Worksheets("ABSENCES JOURNALIER")

.EnableAutoFilter = True

.EnableOutlining = True

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

End With

End Sub

J'ai collé cette chose dans le thisworkbook et je l'enregistre, une fenetre s'ouvre. je l'ai mis en PJ.

J'enregistre tout bêtement, j'ouvre à nouveau mon fichier mais rien ne s'est passé.

J'ai lu que l'on pouvez utiliser cette macro, mais je suis une quiche, j'ai pas réussi à faire fonctionner le Schmilblik.

Merci d'avance de votre aide.

Hassine

sans titre

Je vous joint mon fichier en plus.

26planing-test.xlsx (164.41 Ko)

Bonjour,

Tu colle ce code dans un module standard :

Sub Test()

    With Worksheets("ABSENCES JOURNALIER")

        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect "sisimdp", , True, , True

    End With

End Sub

ensuite tu positionne le curseur dans ce code (n'importe où) et tu appuis sur F5 et tu va voir le résultat sur ta feuille

Bonjour,

Copie cette procédure dans le module ThisWorkbook dans ton classeur et enregistre le sous le format xlsm (m pour macro) et non en xlsx.

Cdlt

Private Sub Workbook_Open()
    With Worksheets("ABSENCES JOURNALIER")
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect _
                Password:="sisimdp", _
                UserInterfaceOnly:=True, _
                AllowFiltering:=True
    End With
End Sub

hourra,

Merci ça fonctionne. J'ai eu un peu de mal parce que j'avais fais une erreur dans le nom de l'onglet et surtout parce que je pensais que n'avais pas besoin de protéger la feuille de manière standard, en pensant que seule la macro suffisait.

Par contre j'ai deux autres feuilles à protéger, que dois rajouter dans le code pour pouvoir le faire?

Merci de votre aide


J'ai trouvé pour les autres onglets.

Merci à tous pour votre aide !!!

Je clôture

Rechercher des sujets similaires à "degrouper verrouillees"