L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Afficher, masquer les barres d'outils, de menu, de barre d'état

Imprimer E-mail
5 mars 2014
Sub MasqueBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre d'outils et menus     For Each cbar In Application.CommandBars
          cbar.Enabled = False
     Next
     'lecture de l'état de la barre d'état     EtatAffich = Application.DisplayStatusBar
     'masque barre d'état     Application.DisplayStatusBar = False
     'lecture de l'état de la barre de formule     FormAffich = Application.DisplayFormulaBar
     'masque barre de formule     Application.DisplayFormulaBar = False
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "MasqueBarre"
End Sub

Sub AffichBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre d'outils et menus     For Each cbar In Application.CommandBars
          cbar.Enabled = True
     Next
     'affiche barre d'état si affichée avant de masquer     If EtatAffich Then Application.DisplayStatusBar = True
     'affiche barre de formule si affichée avant de masquer     If FormAffich Then Application.DisplayFormulaBar = True
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "AffichBarre"
End Sub

Lister le nom des barres d'outils et de menus

Imprimer E-mail
5 mars 2014

Utile si vous devez utiliser une barre et que vous ne connaissez pas son nom en Anglais.

Sub ListeBarre()
     Dim cbar As CommandBar

On Error GoTo GestionErreur
     ' pour chaque barre     For Each cbar In Application.CommandBars
          'index dans la cellule active          ActiveCell = cbar.Index
          'nom dans la langue local dans la cellule droite de la cellule active          ActiveCell.Offset(0, 1) = cbar.NameLocal
          'nom anglais dans la cellule, 2 colonnes à droite de la cellule active          ActiveCell.Offset(0, 2) = cbar.Name
          'sélection de la cellule situé sous la cellule active          ActiveCell.Offset(1, 0).Select
     Next
     Exit Sub
GestionErreur:
     MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly, "ListeBarre"
End Sub