Masquer plusieurs feuilles Excel avec mot de passe

  • Initiateur de la discussion Initiateur de la discussion mig_59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mig_59

XLDnaute Junior
Bonsoir au forum
J'ai trouvé un bout de code pour pouvoir afficher et masquer les feuilles d'un classeur avec mot de passe
Le code fonctionne mais pas comme je le voudrais

Dans mon exemple
Si je selectionne le choix toto, je masque mes feuilles
Si je selectionne le choix tata, je cache mes feuilles
On dira que jusque là : c'est normal

Après avoir saisie mon mot de passe, la msgbox apparait dès que je saisie une valeur sur une cellule de la feuil1
Y'a t'il un moyen d'enpecher le msgbox apparaitre lorsque je saisie des valeurs sur le feuil1

Merci pour votre aide
Pour info le mdp = titi

Mig
 

Pièces jointes

Re : Masquer plusieurs feuilles Excel avec mot de passe

Bonsoir,

Voici, si la cellule active est autre que B2 la macro de s'exécute pas. 😎

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Password As String
    
If Not Application.Intersect(Target, Range("b2")) Is Nothing Then

    If Range("B1") = "TATA" Then
    Password = InputBox("Entrer mot de passe :", "Afficher les feuilles masquées")
        If Password <> "titi" Then Exit Sub
        For i = 2 To Sheets.Count
            Sheets(i).Visible = Not Sheets(i).Visible
        Next i
        Else
        For j = 2 To Sheets.Count
            Sheets(j).Visible = False
        Next j
    End If
End If
End Sub

G
 
Re : Masquer plusieurs feuilles Excel avec mot de passe

Salut le forum

En agissant directement sur la cellule B2
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Password As String
    If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
        If Target.Value = "TATA" And Target.Count = 1 Then
            Password = InputBox("Entrer mot de passe :", "Afficher les feuilles masquées")
            If Password <> "titi" Then Exit Sub
            For i = 2 To Sheets.Count
                Sheets(i).Visible = Not Sheets(i).Visible
            Next i
        Else
            For j = 2 To Sheets.Count
                Sheets(j).Visible = False
            Next j
        End If
    End If
End Sub
Mytå
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
481
Réponses
2
Affichages
532
Réponses
5
Affichages
810
Compte Supprimé 979
C
Réponses
6
Affichages
1 K
Réponses
6
Affichages
984
Réponses
8
Affichages
2 K
Retour