Bonjour à tous,

Voici le code que j'ai fait pour l'ouverture d'un fichier

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
Private Sub WorkBook_Open()
    Dim CmdB As CommandBar
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = True
Next CmdB
    With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = False
    .DisplayFormulaBar = False
    End With
        With ActiveWindow
        .DisplayHeadings = False
        End With
            With Worksheets("Accueil")
            .EnableOutlining = True
            .Protect Password:="APEL", UserInterFaceOnly:=True
        End With
                With Worksheets("Compte")
                .EnableOutlining = True
                .Protect Password:="APEL", UserInterFaceOnly:=True
                End With
                    With Worksheets("Tableaux")
                    .EnableOutlining = True
                    .Protect Password:="APEL", UserInterFaceOnly:=True
                    End With
End Sub
Si je mets False à la ligne "CmdB.Enabled = True" les menus sont cachés, mais cela ne me convient pas car dans les feuilles les lignes 1 et 2 ne sont plus visibles, elles sont cachées par une grosse ligne grisée. Je voudrais éviter ce problème en gardant les menus affichés mais non modifiables.
J'espère avoir étais suffisament clair.
Merci par avance