VBA Excel - Mot de passe et Utilisateurs

Bifidus -  
 Bifidus -
Bonjour, à tous

Dans l'exemple ici https://www.commentcamarche.net/faq/37104-vba-excel-mot-de-passe-et-utilisateurs

Si je souhaites l'essai l'accès à plusieurs feuilles sans être obligé de s'identifier dans cette partie du code comment l'organiser ? Feuil1, Feuilé, Feuil3 

'Masque toutes les feuilles sauf la feuille "Feuil1"
'!!!! ADAPTEZ le nom de la feuille qui doit rester affichée
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Feuil1" Then Ws.Visible = xlSheetVeryHidden
Next Ws


Merci pour vos réponses et bonne journée.

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Sub test()
    For Each Ws In ThisWorkbook.Worksheets
        'test nom onglet a afficher
        If Ws.Name = "Feuil1" Or Ws.Name = "Feuil2" Or Ws.Name = "Feuil3" Then
            Ws.Visible = True
        Else
            'masque ce qui n'est pas a afficher
            Ws.Visible = xlSheetVeryHidden
        End If
    Next Ws
End Sub
    0
  2. Bifidus
     
    Merci pour la réponse, ça marche.
    0

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses