Microsoft 365 affectation de mot de passe pour les boutons de contrôle

[Zizou981]

Bonjour la team,
je suis sur un projet professionnel, et je doit mettre en place un outil de gestion sur EXCEL.
mon problème est que j'ai créer deux bouton ( Global, Autre ) sur l'onglet menu en cliquant sur le bouton choisi il me dirige vers l'onglet approprié jusque la tout va bien, sauf que je voudrais rajouté un mot de passe lorsque je sélection le bouton pour pouvoir être dirigé vers l'onglet approprié et ainsi de suite pour le deuxième onglet.
je ne sais pas si ma requête est claire, pour cela j'ai mis joint un fichier exemple.
merci par avance.

 

[Robert]

Bonjour Zizou et bienvenu, bonjour le forum,

En pièce jointe ton fichier modifié. Les onglets sont masqués à la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

et à l'activation de l'onglet Menu :

Private Sub Worksheet_Activate()
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

L'utilisateur a trois tentatives, après le classeur se ferme...

 

[Zizou981]

Bonjour Zizou et bienvenu, bonjour le forum,

En pièce jointe ton fichier modifié. Les onglets sont masqués à la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

et à l'activation de l'onglet Menu :

Private Sub Worksheet_Activate()
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

L'utilisateur a trois tentatives, après le classeur se ferme...

c'est exactement ça merci beaucoup
maintenant je vais essayer de l'appliquer sur mon fichier réel
bonne journée

 

[Zizou981]

Bonjour Zizou et bienvenu, bonjour le forum,

En pièce jointe ton fichier modifié. Les onglets sont masqués à la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

et à l'activation de l'onglet Menu :

Private Sub Worksheet_Activate()
Worksheets("Global").Visible = xlVeryHidden
Worksheets("Autre").Visible = xlVeryHidden
End Sub

L'utilisateur a trois tentatives, après le classeur se ferme...

bonjour monsieur,
ta solution est magnifique.
par ailleurs, je voudrai rajouter une autre fonctionnalité dans la boite de dialogue du bouton "Global".
en effet, lorsqu'on clic sur le bouton "Global" je voudrais que la boite de dialogue demande le nom d'utilisateur et le mot de passe qui va avec par exemple :
Utilisateur : User 1
Mot de passe : 1
et en cliquant sur Ok ça va le diriger vers l'onglet "Global" et dans l'onglet "Global" dans la cellule C6 le nom de l'utilisateur apparait automatiquement.
dans l'attente d'une réponse je vous souhaite une agréable journée.
et encore merci pour ton aide précieuse.