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

naty79

XLDnaute Nouveau
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
 

Pièces jointes

  • TEST_Filiales_AVANTAGES BENEFITS.xlsx
    96.4 KB · Affichages: 5

TrXtan

XLDnaute Nouveau
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

naty79

XLDnaute Nouveau
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
 

Pièces jointes

  • TEST_Filiales_AVANTAGES BENEFITS (2).xlsm
    205.2 KB · Affichages: 0

youky(BJ)

XLDnaute Barbatruc
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: 2
Dernière édition:

naty79

XLDnaute Nouveau
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
 

Pièces jointes

  • SCREENSHOT.docx
    137.4 KB · Affichages: 1
  • screenshot.png
    screenshot.png
    123.5 KB · Affichages: 3

fanfan38

XLDnaute Barbatruc
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

Discussions similaires

Statistiques des forums

Discussions
299 845
Messages
1 979 501
Membres
206 753
dernier inscrit
mounir311