Discussion :

[NEC14]

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

[patbou]

Bonjour,

elles sont cachées par une grosse ligne grisée

C plus un pb d ' affichage alors !!!

[NEC14]

Bonjour,

Oui, ce n'est pas pratique. Peut-être existe t'il un moyen de supprimer ce grisé et d'avoir un vrai plein écran.

[oOVaveOo]

Bonjour,

Code :

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

1
2
3
    For Each CmdB In Application.CommandBars
    CmdB.Visible = False
    Next CmdB

Ca masque les barres de menu

Sinon, pour passer en mode plein écran :

Code :

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

Application.DisplayFullScreen = True

[NEC14]

Le message suivant apparait :

"Erreur de compilation dans le module caché : ThisWorkBook"

[oOVaveOo]

Sur quelle commande ?

[NEC14]

Sur la première (Cmdb).

[SilkyRoad]

bonsoir


Pourquoi j'ai une erreur de compilation dans le module caché: Thisworkbook à l'ouverture d'Excel ?


bonne soirée
michel