Supprimer des barres en VBA

[Eric D]

Bonjour tout le monde,

Après les grilles, j'aimerais supprimer les barres qui apparaissent après sélection, lorsque l'on fait un click droit dans la rangée 'Fichier Edition Affichage ...', et remettre ce qui était actif après l'application. en VBA of course.

Merci pour votre aide.

Eric D

 

[galopin01]

Bonsoir,
Cette question est abondament traitée Lien supprimé
Je t'engage vivement à lire tout le fil...
A+

 

[Eric D]

Bonsoir Galopin, le forum,

1h après, merci pour ta réponse Galopin, mais après visite, si j'ai bien compris..., cela suprime toutes les barres. Je voudrais les suprimer toutes SAUF la barre de menu.

Merci pour vos réponses

@+

Eric D

 

[Dan]

Bonsoir Eric D,

Moi je te propose un truc tout simple en jouant sur le mode plein écran en toute sécurité.

1. Vas en VBA via ALT+F11
2. Dans VBA project clique sur thisworkbook et place ces 2 macros

Macro 1 - Ouverture du fichier

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

Macro 2 - Fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
End Sub

 

[galopin01]

Bonjour,
Si le FullScreen ne te convient pas, les 2 macros suivantes font celà
il suffit d'appeler la première dans Workbook.Open
Et la deuxième dans Workbook.BeforeClose ou Before Save
Nota:
La 1ère macro sauvegarde ta config dans la première colonne de la feuille 1 (à masquer...)

Sub DefEnv()
Dim i%, S$
Application.ScreenUpdating = False
On Error Resume Next
For Each bar In Application.CommandBars
If bar.Visible = True Then
bar.Visible = False
S = bar.Name
Worksheets(1).Cells(1 + i, 1).Value = S
i = i + 1
End If
Next
End Sub

Sub MemoCBRestore()
Dim i%, S$
S = Worksheets(1).Cells(1 + i, 1).Value
Do While S <> ''
Application.CommandBars(S).Visible = True
Worksheets(1).Cells(1 + i, 1).ClearContents
i = i + 1
S = Worksheets(1).Cells(1 + i, 1).Value
Loop
End Sub

A+

Message édité par: galopin01, à: 26/04/2005 07:22