Discussion :

[mulanzia2003]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mulanzia2003]

Personne n'a une idée ???

[bouley]

Bonjour mulanzia,
Voici un code qui fonctionne sur excel 2003

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !
@+

[mulanzia2003]

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