Masquer tous les onglets sauf mon persol onglet

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour,
Dans un modèle Excel, j'ai créé un onglet personnalisé sur le ruban. (Excel 2010)
J'aimerais masquer tous les onglets sauf mon personnel onglet sur le ruban Excel personnalisé mais je ne trouve pas le code à placer dans le fichier XML.

Merci d'avance pour votre réponse.

Excellente soirée à tous !
Cordialement

1 réponse

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonsoir,
    possible seule en VBA, un code pour masquer tous les onglets sauf l'onglet nommé mon personnel
    et un code pour afficher tous les onglets

    Option Explicit

    Sub Masquer()
    Dim Compteur As Byte
    Application.ScreenUpdating = 0
    For Compteur = 1 To Worksheets.Count
    If Sheets(Compteur).Name <> "mon personnel" Then
    Sheets(Compteur).Visible = False
    End If
    Next
    End Sub

    Sub Afficher()
    Dim Compteur As Byte
    Application.ScreenUpdating = 0
    For Compteur = 1 To Worksheets.Count
    Sheets(Compteur).Visible = True
    Next
    End Sub

    0
    1. Utilisateur anonyme
       
      Merci Mike
      Mais mon problème est les onglets du ruban pas les feuilles. (les onglets prédéfinis sont "Accueil" , "Insertion" , "Mise en page" ...)
      https://www.cjoint.com/c/EFcvKuXpKnG
      0
      1. Utilisateur anonyme > Utilisateur anonyme
         
        Bonsoir
        J"ai trouvé la solution
        L'attribut "startFromScratch true ou false " .La valeur "true" masque les onglets prédéfinis du ruban et quelques éléments du bouton "Office". La valeur "false" (donnée pas défaut) affiche les onglets prédéfinis.
        XML
        <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
        <ribbon startFromScratch="true">
        0