info : masquer/afficher barres et onglets

[C@thy]

bonjour le forum

Cette question revient souvent : comment masquer/afficher les barres (de titre de défilement de menu etc...) et les onglets.

Attention! Après il faut tout remettre en ordre, sinon c'est le mégabôdel!

Application.CommandBars(1).Enabled = False ' (masquer la barre de menus)
Application.CommandBars(1).Enabled = True '(rétablir)

Plein écran :
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
Application.DisplayFullScreen = False '(rétablir)

Application.DisplayStatusBar = False' (Barre d'état)
Application.DisplayFormulaBar = False ' (Barre de formules)

Les barres d'outils standard format et dessin
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False

Masquage de toutes les barres d'outils présentes et copier leur nom dans feuil1
For Each Cbar In Application.CommandBars
If Cbar.Type = msoBarTypeNormal Then
If Cbar.Visible Then
TBarCompteur = TBarCompteur + 1
ThisWorkbook.Sheets("Feuil1").Cells(TBarCompteur, 1).Value = Cbar.Name
Cbar.Enabled = True
End If
End If
Next Cbar

'Barres de défilement vertical et horizontal (= ascenseurs)
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = True
End With
'Masquage des onglets
With ActiveWindow
.DisplayWorkbookTabs = False ' onglets
End With

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


Avanrt de fermer : tout rétablir

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars(1).Enabled = True
.CommandBars(1).Visible = True
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
lign = 1
Tbar = ThisWorkbook.Sheets("Feuil1").Cells(lign, 1)
Do While Tbar <> ""
Application.CommandBars(Tbar).Enabled = True
Application.CommandBars(Tbar).Visible = True
lign = lign + 1
Tbar = ThisWorkbook.Sheets("Feuil1").Cells(lign, 1)
Loop
End Sub

 

[Thierry]

Bonjour,

Pour éviter de modifier l'affichage des barres d'outils il suffit de rendre indisponible le menu (enabled=False) ou simplement l'entrée affichage.

D'ailleurs ce qui est amusant c'est que la propriété visible du menu n'est pas autorisée à la modification, mais que le positionnement à False de enabled a pour effet de rendre la barre invisible.

Thierry