Microsoft 365 MACRO BOUTON avec MDP pour direction sur onglet caché

T

TrXtan

XLDnaute Nouveau

• 21 Juillet 2022

• #2

Bonjour Nathalie,

J'ai une solution , mais elle n'est pas très sécurisée (il est facile de démasquer les onglets en allant voir dans l'éditeur de macros). La solution peut marcher si tu as affaire à des non-initiés à VBA.

en gros:

-Je masque tes 5 onglets au départ (macro "masquage_onglets" dans ton doc). xlSheetVeryHidden permet de masquer l'onglet sans que l'utilisateur puisse le voir en cliquant sur "Afficher" dans Excel
ThisWorkbook.Sheets("IT").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("GE").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("RO").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("SP").Visible = xlSheetVeryHidden
ThisWorkbook.Sheets("PT").Visible = xlSheetVeryHidden

-les boutons dans ton "SOMMAIRE" donnent accès à 5 macros du type:
mdp = InputBox("Mot de passe IT:")

If mdp = "mdpchoisi" Then
ThisWorkbook.Sheets("IT").Visible = xlSheetVisible
ThisWorkbook.Sheets("IT").Select
Else
MsgBox ("Mdp invalide")
End If

à adapter pour les quatre autres onglets.

L'onglet x reste démasqué après. cependant il serait très simple de mettre un bouton sur l'onglet renvoyant à une macro du style
ThisWorkbook.Sheets("IT").Visible = xlSheetVeryHidden
pour re-masquer l'onglet après consultation.

Ai-je bien cerné ton besoin ?

Cordialement,
Tristan

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS.xlsm

  107.9 KB · Affichages: 1

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 21 Juillet 2022

• #3

Bonjour tous,
Un fichier avec userform et bouton (shapes)
Je vous laisse découvrir avec les macros
Bruno

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS.xlsm

  38.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

fanfan38

XLDnaute Barbatruc

• 21 Juillet 2022

• #4

Bonjour
Ci joint ma solution
les mots de passe sont sur les colonnes P et Q (en winding2)
A+ François

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS.xlsm

  40.2 KB · Affichages: 5

Vote positif 0 Vote négatif

naty79

XLDnaute Nouveau

• 22 Juillet 2022

• #5

Top
Merci Messieurs c'est exactement ce que je voulais, je vais bien analyser tout çà à tête reposée.
Pour pouvoir me l'approprier
Milles mercis 🙂
Belle journée
Nathalie

 

Vote positif 0 Vote négatif

naty79

XLDnaute Nouveau

• 22 Juillet 2022

• #6

youky(BJ) à dit:

Bonjour tous,
Un fichier avec userform et bouton (shapes)
Je vous laisse découvrir avec les macros
Bruno

Cliquez pour agrandir...

Bonjour Bruno
Une petite dernière pour la route 🙂 pour le bouton "PT" quand je saisie le MDP " P1" ( bien indiqué sur la feuille 7) il me sort un DEBOGAGE) j'ai beau lire la ligne surlignée en JAUNE mais je ne vois pas ce qui cloche ? et qui empêche l'ouverture de l'onglet "PT" via bouton et MDP 🙂
Belle journée
Nathalie

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS (2).xlsm

  205.2 KB · Affichages: 0

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 22 Juillet 2022

• #7

Bonjour Nathalie,
Sur la Feuil7 masquée j'ai mis PT au lieu de TP
Je remets le fichier ou j'ai ajouté pour remasquer
Bruno
En Feuil7 on peut changer les MP

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS.xlsm

  40.4 KB · Affichages: 3

Dernière édition: 22 Juillet 2022

Vote positif 0 Vote négatif

naty79

XLDnaute Nouveau

• 22 Juillet 2022

• #8

youky(BJ) à dit:

Bonjour Nathalie,
Sur la Feuil7 masquée j'ai mis PT au lieu de TP
Je remets le fichier ou j'ai ajouté pour remasquer
Bruno
En Feuil7 on peut changer les MP

Cliquez pour agrandir...

Merci

 

Vote positif 0 Vote négatif

naty79

XLDnaute Nouveau

• 22 Juillet 2022

• #9

fanfan38 à dit:

Bonjour
Ci joint ma solution
les mots de passe sont sur les colonnes P et Q (en winding2)
A+ François

Cliquez pour agrandir...

Bonjour François
J'ai mis en forme le fichier
Par contre j'ai bien rajouter deux onglets ( FR) (GB), j'ai mis leur MDP dans les colonnes masquées P& Q ( en winding2) j'ai rajouter les lignes codes dans les MACROS.
Quand je clique sur l'icone FR ou GB çà me demande bien le MDP mais çà ne s'ouvre pas 🙁
Je passe à côté de kk chose 🙂
Bonne fin de journée
Nathalie

 

Pièces jointes

• SCREENSHOT.docx

  137.4 KB · Affichages: 1
• screenshot.png

  123.5 KB · Affichages: 21

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 22 Juillet 2022

• #10

Il faut dans la macro du bouton correspondant
UserForm1.Label1.Caption = le nom exact de la feuille ...

Pour la feuille FR n'y a t'il pas un espace avant ou après?

A+ François

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITS.xlsm

  42.8 KB · Affichages: 1

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 22 Juillet 2022

• #11

Bonjour
Petit plus, je mets une nouvelle version bien plus simple et non limité
Bruno

 

Pièces jointes

• TEST_Filiales_bis.xlsm

  40.9 KB · Affichages: 6

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 22 Juillet 2022

• #12

Moi aussi j'ai fait une version simplifié..lol
L'inscription dans le bouton c'est le nom de la feuille
le mot de passe est sur la dite feuille en Q1
A+ François

 

Pièces jointes

• TEST_Filiales_AVANTAGES BENEFITSv1.xlsm

  42.7 KB · Affichages: 4

Vote positif 0 Vote négatif