Création macro pour grouper/dégrouper

Bonjour le Forum,

J'ai un fichier Excel, protégé à l'origine avec un mot de passe, avec notamment des colonnes que je groupe/dégroupe avec une macro trouvée - vraiment très pratique - sur ce site (https://forum.excel-pratique.com/post285622.html) et que j'ai adaptée à mes besoins :

Sub RES1_SLE()

With Columns("P:U")

If Not .Hidden Then .Hidden = True Else .Hidden = False

End With

End Sub

J'ai toutefois des connaissances très limitées en VBA et je souhaiterais que les colonnes P:U ne puissent pas s'ouvrir sans la saisie d'un mot de passe. J'ai d'autres colonnes que je groupe/dégroupe suivant le même principe que ci-dessus et qui doivent cependant être accessibles aux utilisateurs.

J'espère avoir été claire, alors d'avance merci pour vos réponses.

Belle journée et cordiales salutations.

Lamademon

Bonsoir,

un truc comme ça ?

Sub RES1_SLE()
With Columns("P:U")
If Not .Hidden Then .Hidden = True
Else
code = inputbox("Veuillez entrer le mot de passe :")
If code ="toto" then .Hidden = False
End With
End Sub

Attention, pas essayer !

@ bientôt

LouReeD

Oups, j'ai essayé ... et j'ai un message d'erreur "Erreur de compilation, Else sans If" !

Merci pour ton aide et ... peut-être une aide à la correction

Cordialement.

Lamademon

Bonsoir,

avec une "structure ordinaire" je vois mieux mon erreur...

Sub RES1_SLE()
    With Columns("P:U")
        If Not .Hidden Then
            .Hidden = True
        Else
            code = InputBox("Veuillez entrer le mot de passe :")
            If code = "toto" Then
                .Hidden = False
            End If
        End If
    End With
End Sub

Ceci dit ce système est très peu protégé, une vu sur le code et on voit le mot de passe mais cela enlève une parti des utilisateurs lambda...

@ bientôt

LouReeD

Mieux, c'est vraiment pas possible !

Aors, un tout grand MERCI, belle fin de journée et un excellent week-end que j'espère ...à rallonge !

Cordialement.

Lamademon

Bonsoir,

des grands du forum vous prouveraient le contraire... Ceci dit le code fonctionne, n'est-ce pas là le résultat escompté ?

Merci pour les mercis et @ bientôt sur le forum

LouReeD