Masquer - Afficher colonne

Bonjour à tous !

J'aimerais écrire une macro qui masque 2 colonnes lorsqu'elles sont visibles. Et les affiches lorsqu'elles sont masquées.

J'ai essayé ce code

Sub Masquer_Afficher

Columns ("N:O").Select

If Selection.EntireColumn.Hidden = True Then

Selection.EntireColumn.Hidden = False

End If

If Selection.EntireColumn.Hidden = False Then

Selection.EntireColumn.Hidden = True

End If

End Sub

Mais ça ne marche absolument pas !

J'aimerais également que lorsque que je lui demande d'afficher les colonnes il me demande de déverrouiller la feuille avec mon mot de passe. Et lorsque que je lui demande de masquer les colonnes, il protège la feuille avec mon mot de passe.

Est-ce possible ?

Je vous remercie.

Bonjour valdu26, le forum,

Un essai...............mot de passe pour afficher : excel

Private Sub Masquer_Click()
 Dim mdp As String

 Select Case Masquer.Caption
  Case Is = "Masquer"
   Sheets("Feuil1").Columns("N:O").Hidden = True
    Masquer.Caption = "Afficher"
     Masquer.BackColor = vbGreen
  Case Is = "Afficher"
   mdp = InputBox("Saisir le mot de passe ?", "Mot de passe")
    If mdp <> "excel" Then
     MsgBox "Mot de passe refusé"
    Else
     Sheets("Feuil1").Columns("N:O").Hidden = False
      Masquer.Caption = "Masquer"
       Masquer.BackColor = vbRed
    End If
  End Select
End Sub

Cordialement,