[VBA-E] Activation barre de commande

Version imprimable

Bonjour,
1ère question :
je soushaiterai rendre inactif à l'ouverture du fichier la barre des tâches (Fichier, Edition, Affichage,..., Fenêtre). Puis les remettre actif à la fermeture du fichier.

2ème question :
Je souhaiterai à l'ouverture de mon fichier qu'il n'y est aucun barre d'outil, et qu'à la fermeture les barres d'outils comme avant l'ouverture se remette en place.
Voici le code que j'ai trouvé en enregistrant la macro, cela est valable pour ma configuration
Code:

1 2 3 4 5 Application.CommandBars("Standard").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Drawing").Visible = False Application.CommandBars("Visual Basic").Visible = False
Mais comment connaître la configuration initiale.

Merci pour votre aide

31/08/2006, 06h50
mulanzia2003

Personne n'a une idée ???

Bonjour mulanzia,
Voici un code qui fonctionne sur excel 2003

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Dim config_depart(20) As String 'Pour la mise en mémoire des barres à réafficher

Dim Nbr_barres As Integer
Dim Nom_barres As String


Sub cachebarre()
            Nbr_barres = 0
   ' Pour toutes les barres on teste si elles sont affichées
    For Each barre In Application.CommandBars
        If barre.Visible = True Then
            Nom_barres = barre.Name
            Debug.Print Nom_barres

             If Nom_barres <> "Worksheet Menu Bar" Then
                 'Cas des barres d'outils
                 Nbr_barres = Nbr_barres + 1
                 Application.CommandBars(Nom_barres).Visible = False
                 config_depart(Nbr_barres - 1) = Nom_barres
             Else
              'cas de la barre de menu
             Application.CommandBars(Nom_barres).Enabled = False
             End If
        End If
    Next barre
    
End Sub

Sub affichebarre()
'Réaffiche les menus standars
Set barre_menu = CommandBars("Worksheet Menu Bar")
        barre_menu.Enabled = True
Set barre_menu = Nothing

 'réaffiche les barres d'outils qui ont été fermées
   i = 0
        For i = 0 To Nbr_barres - 1
            Nom_barres = config_depart(i)
            Application.CommandBars(Nom_barres).Visible = True
        Next i

End Sub

à toi de placer ces procédures au bon endroit !
et de rendre les variables globales peut-être !
tu dis !
@+

20/09/2006, 14h08
mulanzia2003

OK pour le conseil.
Cela fonctionne mais pas comme je veux. Mais c'est déjà cela.
Merci