Grouper/dégrouper des colonnes avec un mot de passe

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 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

Bonjour lamademon, bonjour le forum,

Ce code, que le premier clampin qui sait ouvrir VBE (Visual Basic Editor) pourra craquer... Donc, niveau sécurité, disons = 1 sur 1000...

Sub RES1_SLE()
Dim MDP As Variant
MDP = Application.InputBox("Tapez le Mot de Passe !", "MOT DE PASSE", Type:=2)
If MDP = "" Then Exit Sub
If MDP = "toto" Then 'à adapter
    With Columns("P:U")
    If Not .Hidden Then .Hidden = True Else .Hidden = False
    End With
End If
End Sub

Bonjour ThauThème, bonjour le forum,

Il n'y aura pas de péril dans la demeure si les données à protéger sont visualisées, alors je vais me contenter de cette réponse qui me convient très bien.

Alors merci tout plein et belle journée à vous tous.

@+ Lamademon