Afficher Colonne si mdp

[Marc_du_78]

Bonjour à tous,
Voilà, je désire que 3 colonnes (AM:AO) ne puissent s'afficher qu'avec un mot de passe.
Ceci est-il envisageable et comment.
En vous remerciant

 

[@Bobby]

Marc

Voici un petit code

If InputBox('Mot De Passe') = 'MotDePasse' Then
Columns('A:C').Select
Selection.EntireColumn.Hidden = False
End If

Bien à toi

 

[Marc_du_78]

Bonjour @Bobby,
Je te remercie pour aide efficace et rapide.
Je te souhaite une bonne journée.

 

[_Thierry]

Bonjour Marc, Bobby, le Forum

Une approche par macro évènementielle dans le Private Module de la Feuille en Question :

Const MDP As String = 'XLD'


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pass As String

If Application.Intersect(Target, Range('AM:AO')) Is Nothing Then Exit Sub

Pass = Application.InputBox('Saisir Mot de Passe', 'Passworld Area !', Type:=2)

Columns('AM:AO').EntireColumn.Hidden = Not (Pass = MDP)

End Sub

Bonne Journée et Semaine
[ol]@+Thierry[/ol]

 

[Marc_du_78]

Merci de ton intervention Thierry,
en te souhaitant à mon tour une bonne journée et semaine.