Masquer tous les onglets sauf mon persol onglet
Résolu/Fermé
A voir également:
- Masquer tous les onglets sauf mon persol onglet
- Restaurer onglets chrome - Guide
- Masquer conversation whatsapp - Guide
- Onglet privé - Guide
- Comment masquer les amis sur facebook - Guide
- Iphone je n'entend pas mon interlocuteur sauf en haut parleur - Forum iPhone
1 réponse
Mike-31
Messages postés
18309
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 mars 2024
5 071
2 juin 2015 à 19:50
2 juin 2015 à 19:50
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
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
Modifié par delta70 le 2/06/2015 à 23:36
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
3 juin 2015 à 01:31
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">