Afficher Colonne si mdp

Marc_du_78 · 20 Février 2006

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 · 20 Février 2006

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 · 20 Février 2006

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

_Thierry · 20 Février 2006

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 · 20 Février 2006

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

Afficher Colonne si mdp

Marc_du_78

XLDnaute Accro

@Bobby

XLDnaute Junior

Marc_du_78

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

Marc_du_78

XLDnaute Accro

Discussions similaires