Discussion :

[beginnervba]

Bonjour à tous,

Je souhaiterais masquer des colonnes dans mon ficher et ne pouvoir les faire s'afficher qu'avec un mdp
J'ai trouvé ces codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Cache_colonnes()
Dim mot_de_passe As String
mot_de_passe = InputBox("Taper le mot de passe")
If mot_de_passe = "MDP" Then
Columns("F:L").Hidden = True
Else: Exit Sub
End If
End Sub
 
 
Sub Afficher_colonnes()
Dim mot_de_passe As String
mot_de_passe = InputBox("Taper le mot de passe")
If mot_de_passe = "MDP" Then
Columns("F:L").Hidden = False
Else: Exit Sub
End If
End Sub

Ils marchent très bien, le problème est que si j'appuie manuellement en haut de ma feuille (clic droit) "afficher"colonne elle s'affiche...
Du coup j'aimerais savoir comment faire pour réellement verrouiller ces colonnes

Merci pour votre aide
N'hésitez pas à rajouter des explications si vous pouvez m'aider, étant novice j'aimerais comprendre les mécanismes

[EricDgn]

Bonjour,

Pour que cela fonctionne, il faut que la feuille soit protégée (et les cellules mises non verrouillées).
Voir clic-droit, "Format de cellule".


et dès lors utiliser un code de ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Cache_colonnes()
   Dim mot_de_passe As String
   mot_de_passe = InputBox("Taper le mot de passe")
   If mot_de_passe = "MDP" Then
      Columns("F:L").Hidden = True
      ActiveSheet.Protect Password:="MDP"
   End If
End Sub
 
Sub Afficher_colonnes()
   Dim mot_de_passe As String
   mot_de_passe = InputBox("Taper le mot de passe")
   If mot_de_passe = "MDP" Then
      ActiveSheet.Unprotect Password:="MDP"
      Columns("F:L").Hidden = False
   End If
End Sub

Bonne continuation.