macro pour enlever les barres d'outils à l'ouverture

[EPIZODE5]

Bonsoir au forum

je cherche une macro pour enlever les barres d'outils à l'ouverture de mon classeur. MERCI POUR VOTRE PARTICIPATION

 

[Dan]

Re : macro pour enlever les barres d'outils à l'ouverture

Bonsoir,

Le mieux est de travailler en mode plein écran.
suis ce lien et mon message à 23h32 -->https://www.excel-downloads.com/threads/masquer-les-barres-doutils.70338/

Bonne soirée

 

[JYLL]

Re : macro pour enlever les barres d'outils à l'ouverture

Bonsoir Epizode5, Dan et le forum,

Tu peux mettre cela dans ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Formatting").Visible = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Formatting").Visible = False
End Sub

Ce morceau de code enlève la barre d'outil en entrant et la remet quand tu quittes le classeur.

Bonne lecture.

 

[Dan]

Re : macro pour enlever les barres d'outils à l'ouverture

Re,

Oui, JYLL mais les autres vont rester là car ce code n'inclut que la barre d'outils FORMAT.

A bientôt

 

[JYLL]

Re : macro pour enlever les barres d'outils à l'ouverture

Re Bonsoir Dan,

Ce n'est qu'à titre d'exemple, il faut trouver le reste maintenant. Pas compliqué à faire et bien pour retenir, sinon si tout est fait demain c'est oublié. Suis prêt à faire la suite si demande. Pour le plus simple il suffit de faire une macro avec l'enregistrement automatique et de déplacer le code dans les deux macros de ThisWorbook

A plus et au plaisir.

 

[Dan]

Re : macro pour enlever les barres d'outils à l'ouverture

re,

Je ne doute pas que tu puisses le faire mais là je pense que la proposition ne va pas aider le demandeur dans ce qu'il veut faire.
Pour le reste je ne suis pas pour la manipulation des barre d'outils et autres. Il suffit de voir le nombre de fils ouverts depuis 2002 aux sujets de la perte des barres d'outils et menu pour s'en apercevoir.

Cela étant dit rien à dire sur ton code si c'est la barre d'outils FORMAT que l'on veut cacher.

Allez bonne soirée.

 

[CBernardT]

Re : macro pour enlever les barres d'outils à l'ouverture

Bonjour à tous,

J'utilise les macros suivantes :

Dans le module Thisworkbook , la macro de plein écran à l'ouverture et la macro de retour à l'application normale à la fermeture :

Private Sub Workbook_Open()
PleinEcran
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
RetourApplication
End Sub

Dans un module ordinaire les macros suivantes :

Sub PleinEcran()
Application.ScreenUpdating = False
With Application
.CommandBars(1).Enabled = False
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Application.ScreenUpdating = True
End Sub

Sub RetourApplication()
Application.ScreenUpdating = False
With Application
.CommandBars(1).Enabled = True
.DisplayFullScreen = False
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

 

[JYLL]

Re : macro pour enlever les barres d'outils à l'ouverture

re Dan,

Bien pris note de la philosophie de ta remarque, il est vrai que quand tu les as enlevées si tu n'as pas pris la précaution de le remettre avant de quitter c'est la galère pour beaucoup.

Merci de ta remarque.