IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[débutante] cacher/verrouiller des feuilles au chargement


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 426
    Points : 111
    Points
    111
    Par défaut [débutante] cacher/verrouiller des feuilles au chargement
    Bonjour à tous,

    J'ai 5 feuilles dans mon classeur excel.

    Je souhaite qu'à l'ouverture du classeur excel :
    * si je clique sur "bouton1" (contenu dans la feuille 1) alors la "feuille2" s'affiche et les 3 autres feuilles soient cachées et verrouillées.

    Est-ce possible? et si oui comment ?
    Merci à tous pour votre aide
    aud-

  2. #2
    Expert éminent
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    3 906
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 3 906
    Points : 8 539
    Points
    8 539
    Par défaut
    Salut
    Pour cacher une feuille, tu as sa propriété visible
    Pour protéger deprotéger, Protect/Unprotect
    Pour la mettre au 1er plan, Activate

    ca donnerait un truc comme ca je pense, a adapter a tes besoin.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    With Sheets("Feuil2")
        .Activate
        .Unprotect
    End With
     
    With Sheets("Feuil1")
        .Visible = False
        .Protect
    End With
    End Sub
    A++
    qwaz

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 426
    Points : 111
    Points
    111
    Par défaut
    Mais ce code est à mettre dans la "feuille1" ? ou dans chaque bouton ?
    et sous quelle déclaration un truc genre private change... ?

  4. #4
    Expert éminent
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    3 906
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 3 906
    Points : 8 539
    Points
    8 539
    Par défaut
    Salut
    Oui tu place ce code, qu'il va falloir adapter a tes besoin et modifier pour chacun des boutons ou attend peut être que ... 2 sec je regarde autre chose...

    Voila ce sera mieux ainsi:
    Tu crées un module, ou tu rajoutes dans un existant si tu en a un dans ton classeur, et tu mets se code dedans

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub TheNext()
    With ActiveSheet
        .Protect
        .Visible = False 'active de ce fait la feuille suivante, activesheet represente maintenant la feuille suivante
        .Unprotect
    End With
     
    End Sub
    Puis dans tes feuilles de 1 a 4 tu crées un bouton (outil formulaire pas vb) et tu associes a ces 3 boutons la macro TheNext.

    A++
    Qwaz

  5. #5
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    426
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 426
    Points : 111
    Points
    111
    Par défaut
    oki merki! j'ai pris ton premier bout de code que j'ai adapté car je le trouvais plus simple qu'avec la fonction next().
    Et maintenant si je veux que l'on rentre un mot de passe quand on appuie sur le bouton... comment faire?

Discussions similaires

  1. Condition pour cacher des feuilles
    Par christelle_s dans le forum QlikView
    Réponses: 2
    Dernier message: 21/11/2013, 09h54
  2. Débutant : Principe des feuilles de style CSS
    Par Kerod dans le forum Mise en page CSS
    Réponses: 0
    Dernier message: 21/06/2010, 20h35
  3. comment cacher les onglets des feuilles de calculs ?
    Par arkorrigan dans le forum Excel
    Réponses: 7
    Dernier message: 30/05/2008, 13h57
  4. Cacher des feuilles
    Par Eric93 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/01/2008, 17h39
  5. cacher des feuilles a l'ouverture du classeur
    Par florent149 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 08/08/2006, 17h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo