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

[naty79]

Bonjour

Je souhaite créer des boutons sur lesquels en cliquant dessus la personne soit dirigée sur l'onglet mais avec MDP pour y accéder. Je ne sais pas comment m'y prendre ou si c'est possible ?

Ci-joint le fichier

Merci pour votre aide Belle journée Nathalie

 

[TrXtan]

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

 

[youky(BJ)]

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

 

[fanfan38]

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

 

[naty79]

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

 

[naty79]

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

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

 

[youky(BJ)]

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

 

[naty79]

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

Merci

 

[naty79]

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

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

 

[fanfan38]

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

 

[youky(BJ)]

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

 

[fanfan38]

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