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

Robert à dit:

Bonjour Zizou et bienvenu, bonjour le forum,

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

VB:

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

et à l'activation de l'onglet Menu :

Code:

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...

Cliquez pour agrandir...

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

Robert à dit:

Bonjour Zizou et bienvenu, bonjour le forum,

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

VB:

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

et à l'activation de l'onglet Menu :

Code:

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...

Cliquez pour agrandir...

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.