XL 2010 Masquer quelques onglets uniquement d'un fichier

rosabelle

XLDnaute Junior
Bonjour à tous,

Je sais masquer tous les onglets en allant dans les options avancées et en décochant "afficher les onglets de classeur" mais pour le fichier sur lequel je travaille actuellement je souhaiterais que seuls qq onglets ne soient jamais visibles en bas dans la barre des onglets :
J'ai mis un bouton macro sur onglet 1 : "aller onglet 2"
Sur onglet 2 j'ai mis un bouton : "retour onglet 1" : dans le code que j'ai enregistré j'ai demandé qu'avant de retourner sur onglet 1 excel masque onglet 2.
Tout va bien si l'utilisateur utilise ce bouton de retour mais s'il ne l'utilise pas et va cliquer directement en bas sur onglet1, forcément onglet 2 reste visible.
Comment puis-je faire pour que cet onglet 2 soit accessible pour mon bouton "aller onglet 2" mais que onglet 2 reste toujours masqué quelle que soit la manière d'en sortir (par bouton "retour onglet 1" ou même si on clique en bas sur l'onglet 1

J'ai mis le code suivant sur mon bouton macro "retour onglet 1"
retourpoly1 Macro
'
Sheets("1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("minipoly >duréé maxi de prorati").Select
ActiveWindow.SmallScroll Down:=-30
Range("A3").Select
End Sub

Merci par avance pour votre aide
 
Solution
Bonjour Rosabelle,
Le plus simple est d'utiliser cette macro qui rend tous les onglets visibles.
Ils re-disparaissent quand on clique sur l'autre bouton.
VB:
Sub VoirTout()
    For Each F In Worksheets
        Sheets(F.Name).Visible = True
    Next F
End Sub
Bonjour,
Un grand merci une fois encore Sylvanu et je redis combien ce site est précieux.
Je rajoute le dernir code à mon fichier, il me sera fort utile.
Je vous souhaite de bonnes fêtes de fin d'année.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Rosabelle,
Utilisez la propriétés xlSheetVeryHidden, la feuille sera totalement invisible, même dans la liste des feuilles.
VB:
Pour la rendre invisible:
ActiveWindow.SelectedSheets.Visible = xlSheetVeryHidden
Pour la rendre visible:
ActiveWindow.SelectedSheets.Visible = xlSheetVisible
 

Pièces jointes

  • Rosabelle.xlsm
    15.5 KB · Affichages: 5

rosabelle

XLDnaute Junior
Bonjour Sylvanu,
Veuillez m'excuser pour cette réponse tardive, j'étais un peu souffrante.
Je vous remercie une fois encore d'avoir pris en compte mon problème.
Je viens d'adapter votre macro dans mon fichier et ça fonctionne très bien.
Votre aide m'a vraiment été précieuse.
Par sécurité pour le cas où je ne me souviendrais plus comment puis-je savoir quelles feuilles ont été rendues invisibles à moins d'aller examiner chaque macro?
Y a t il un moyen de les faire réapparaître à la demande?
Je demande beaucoup mais comme je ne mets pas à jour ces fichiers très souvent j'ai peur de ne plus me rappeler et l'année prochaine de chercher à moins de noter qq part
Bonne journée et de bonnes fêtes à vous tous
 

rosabelle

XLDnaute Junior
Bonjour Rosabelle,
Le plus simple est d'utiliser cette macro qui rend tous les onglets visibles.
Ils re-disparaissent quand on clique sur l'autre bouton.
VB:
Sub VoirTout()
    For Each F In Worksheets
        Sheets(F.Name).Visible = True
    Next F
End Sub
Bonjour,
Un grand merci une fois encore Sylvanu et je redis combien ce site est précieux.
Je rajoute le dernir code à mon fichier, il me sera fort utile.
Je vous souhaite de bonnes fêtes de fin d'année.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG