XL 2019 Grouper des colonnes + mot de passe pour dégrouper

[Tioneb_h]

Bonjour,

Quelqu'un peut m'aider pour :

1) vba pour grouper des colonnes automatiquement à la fermeture du fichier
2) mot de passe pour dégrouper les colonnes qui on été fermées automatiquement à la fermeture du fichier

Merci pour votre aide

Ben

 

[Staple1600]

Bonsoir

Un exemple simple pour te mettre sur la piste.
(VBA à mettre dans le code de la feuille concernée, et pas dans un module standard)
NB: Dans cet exemple, j'ai groupé manuellement les colonnes F:M au préalable.

Private Sub Worksheet_Activate()
M_d_p = InputBox("Mot de passe?")
If M_d_p = "Staple" Then
Me.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Else
Exit Sub
End If
End Sub

Private Sub Worksheet_Deactivate()
Me.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub