Bouton lien HyperText ou macros vers autres feuilles masquées

Bonjour à tous,

Je sollicite votre aide et vous remercie. J'ai un classeur avec plusieurs feuilles ma première feuille se nomme "menu" sur cette page j'ai des boutons qui font références à d'autres feuilles de mon classeur. Quand je masque mais pages où les protèges mes boutons et les macros ne fonctions plus. Si vous pourriez me guider je suis perdu!!!

En faisant des recherches j'ai pu trouver un fichier qui ressemble plus au moins à mon attends MAIS c'est via des cellules par range (A1:A8) et non via des boutons libre sur la page, en plus sur la cellule on ne ait pas cliquer mais il faut cliquer droite pour y accéder. y a t-il moyen de modifier avec boutons qui remplace les cellules.

Pour test sur certaines feuilles j'ai protégé avec un mot de passe 1234.

Merci à tous,

Bonne nuit à vos tous,

Pour ma demande ci-dessous je n'ai pas eu d'avis.

Comment attribuer la commande du macro des cellules aux boutons.

En vous remerciant d'avance vous souhaite une bonne nuit

Cdlt,

Bonjour Kevin38

Sujet qui est passé inaperçu semble t'il, navré pour vous

Voici le code à mettre dans un module

Option Explicit

Sub ClicBouton()
  Dim NomDuBouton As String, NumBouton As String
  ' On récupère le nom du bouton appelant
  NomDuBouton = Application.Caller
  ' On récupère le texte du numéro
  NumBouton = ActiveSheet.Shapes.Range(Array(NomDuBouton)).TextFrame2.TextRange.Characters.Text
  ' On rend visible la feuille
  Sheets(NumBouton).Visible = xlSheetVisible
  ' On l'active
  Sheets(NumBouton).Activate
End Sub

Voici le fichier

A+

Bonjour Bruno,

Un tout grand merci ça fonctionne parfaitement!

Merci