Onglet et en têtes

[Arnaud]

Bonjour le forum

Aprés avoir cherché dans les archives et ne pas avoir trouvé ce que je cherche, j'en viens à vous poser la question suivante:
Peut-on masquer toute les en-têtes et les onglets d'un classeur par une seule macro ?
Je sais que c'est possible avec pour chaque feuille, (merci à C@thy pour ce code)
'Masquage des onglets
With ActiveWindow
.DisplayWorkbookTabs = False
End With

'Masquage En-têtes de lignes et de colonnes
With ActiveWindow
.DisplayHeadings = False
End With


c'est aussi possible en passant par les menus d'excel mais il faut faire la manip pour chaque feuille.
Existet-t-il un code que l'on puisse mette dans workbook.open ?

Merci d'avance et bonne journée à tous

@+
Arnaud

 

[Valérie]

Salut le forum,

Contente d'être parmi vous.

Je ne vois que la boucle pour ce type de manip ce qui te donne

Private Sub Workbook_Open()
Dim FENETRE As Window
For Each FENETRE In Application.Windows
FENETRE.DisplayHeadings = False
FENETRE.DisplayWorkbookTabs = False
Next
End Sub

Qui masquera toutes les entêtes et tous les onglets des classeurs ouverts
Mais je suis pas sure d'avoir compris la question

@+
valérie

 

[jpierre]

salut,

le mieux est de placer dans le woorbook open de this wookbook les intrustions suivantes
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = false
end sub

et surtout n'oubliez pas de les remettre apres fermerure du fichier!!!!


Rmq: le passage en version plein ecran dans excel 2000 entraine la disparition des ongletS

A+

jpierre

 

[Arnaud]

Merci de vos si véloces réponses

Jpierre, désolé mais je ne souhaite pas mettre en plein écran afin de conserver les différents pictogrammes en haut à droite dans la barre d'excel.
Pour Valérie, c'est exactement ce que je cherchais. En fait c'est pour une application qui à l'ouverture n'a aucune barre de menu ou d'outils, ni onglets, ni en - têtes. Et je fais tout apparaître par une macro à laquelle est associé un mot de passe.

Bonne journée

Arnaud

 

[jpierre]

salut arnaud,


je n'ai pas trop le temps de programmer ces temps ci

par contre tu peux m'envoyer dans ma bal ton fichier car je dois faire la meme chose pour un programme et j'ai besoin d'avoir une macro qui permet de faire tout reapparaitre quand j'en ai besoin

merci par avance

Jpierre

 

[Arnaud]

re bonjour à tous

Un probléme avec le code de Valérie, ça marche pour les onglets pas pas pour les en-têtes. Ca marche avec le feuille qui apparaît à l'ouverture du fichier mais pas pour les autres feuilles du fichiers.
Si tu as une idée

merci d'avance
@+

Pour Jpierre, je fais un peu de ménage dans le fichier et je te l'envoie

 

[Valérie]

Salut à vous tous,

Effectivement pas sur toutes les feuilles.

Avec ceci cela devrait aller mieux, sur chaque classeur avant de masquer je sélectionne toutes les feuilles


Private Sub Workbook_Open()
Dim FENETRE As Window
Application.ScreenUpdating = False
For Each FENETRE In Application.Windows
FENETRE.Activate
ActiveWorkbook.Sheets.Select
FENETRE.DisplayHeadings = False
FENETRE.DisplayWorkbookTabs = False
ActiveWorkbook.ActiveSheet.Select
Next
Windows(1).Activate
Application.ScreenUpdating = True
End Sub

Comme y'a sélection je désactive les Mises à jour d'écran et les réactive à la fin

@+
Valérie