XL 2016 Bloquer avec une macro l accès a masquer /afficher la feuille du ruban excel

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #2

Bonjour Berru,
Votre VBA est verrouillé par mdp.
Utilisez la propriété xlSheetVeryHidden pour la faire disparaitre de la liste des feuilles à afficher :

VB:

Sheets("feuil1").Visible = xlSheetVeryHidden

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #3

Je ne suis pas un pro du vba
C'est l' accès a la feuille via accueil /format /masquer afficher que je voudrais verrouiller
pouvez vous me donner plus de détails ou savoir comment l intégrer dans le module
Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #4

Dans le code ci dessous, remplacez toto par le nom de la feuille qui reste toujours affichée :

VB:

Nom = "toto" ' mettre le nom de la feuille toujours active
For Each Feuille In Worksheets
    If Feuille.Name <> Nom Then
        Feuille.Visible = xlSheetVeryHidden
    End If
Next Feuille

Tous vos onglets sont inaccessibles sauf "toto". Le seul moyen de les visualiser est de modifier leur statut Visible dans leurs propriétés par VBA.
Et pour rendre visible une feuille :

Code:

Sheets("NomFeuille").Visible = True

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #5

excusez moi je me suis mal exprimé
C'est l' accès aux feuilles dans le ruban du fichier Excel (via accueil /format /masquer afficher) que je voudrais verrouiller afin de ne laisser l'accès d'une feuille que par le bouton "accès concours"
Merci

 

Dernière édition: 26 Février 2021

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #6

J'ai l'impression d'un dialogue de sourd.
Testez cette PJ et essayez d'accéder à une feuille autrement que par appui sur un bouton.
( mdp VBA et feuille : 123 )

 

Pièces jointes

• Berru.xlsm

  28.7 KB · Affichages: 6

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #7

comme je vous ai dis je suis débutant en vba je ne me suis lancer a essayer de faire ces concours que depuis un an je comprend mieux avec des exemples grâce a vos aides il sont finis il ne me reste que que deux petites finitions après celle ci qui fonctionne bien
Si je n'abuse pas de trop si vous pouvez m'aider
je voudrais pouvoir enregistrer par macro ce fichier avec le nom / date /
Un grand merci

 

Pièces jointes

• Afficher feuilles.xlsm

  95.3 KB · Affichages: 2

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #8

Malheureusement encore un problème comment rajouter la feuille noms et Mode d'emploi visibles aussi

Sub Affiche()
For Each Feuille In Worksheets
If Feuille.Name <> "Inscriptions" Then
Feuille.Visible = xlSheetVeryHidden
End If
Next Feuille
Sheets(Application.Caller).Visible = True
Sheets(Application.Caller).Activate
End Sub

Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #9

1- C'est la deuxième fois que vous fournissez des fichiers dont le VBA est protégé.
Et à ma question du post #2 vous n'avez pas fourni le mot de passe.
2- Pas de réponse sur le test du post #6. Dommage pour moi.
3- Pour l'enregistrement, testez :

VB:

Chemin = "C:\Users\user\Desktop\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
ThisWorkbook.SaveAs Chemin & NomFichier & "_ " & Format(Date, "dd-mm-yyyy") & ".xls"

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #10

Code:

If Feuille.Name <> "Inscriptions" and Feuille.Name <> "Nom" and Feuille.Name <> "Mode d'emploi" and Then

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #11

Juste pour rappel,
1- On utilise les balises </> pour le code c'est plus lisible ( entre GIF et " dans la barre d'outil )
2- On donne le résultat d'un test pour que le contributeur sache s'il a bossé pour quelque chose ou pour rien, ou s'il n'a rien compris.
3- On met un problème par post. En cas de second problème on ouvre un nouveau post.

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #12

Merci pour ces remarques je ferai attention a cela
Jai teste la ligne pour les noms et mode d'emploi m'indique une erreur
Je rejoint le fichier dont j'ai enlevé les protections
Je vais tester pour enregistrer sous
Merci de votre patience

 

Pièces jointes

• Afficher feuilles.xlsm

  95.5 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #13

Vous avez recopié des choses sans les comprendre.
Application.caller envoie le bouton sur lequel vous avez appuyez. Dans votre fichier cela ne correspond à rien.
Ensuite le module Worksheet_Activate doit être implanté dans les trois feuilles visibles.

 

Pièces jointes

• Afficher feuilles (1).xlsm

  87 KB · Affichages: 5

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 26 Février 2021

• #14

cela fonctionne parfaitement dans les fichiers d 'origine
Dernière question pour enregistrer sous je crée une macro ?
Merci a vous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2021

• #15

berru76 à dit:

Dernière question pour enregistrer sous je crée une macro ?

Cliquez pour agrandir...

Oui avec les trois ligne de code du post #9 plus entête et fin de macro.

 

Vote positif 0 Vote négatif