Discussion :

[denisw95]

Bonjour,

Depuis Access en VBA, j'ouvre une feuille XLS. Je voudrais désactiver toutes les barres de menu de mon fichier XLS et contraindre l'utilisateur à utiliser les touches "fonction" du fichier XLS.

j'ai essayé

Code :

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

objApp.CommandBars("Worksheet Menu Bar").Visible = False

mais cela ne fonctionne pas.
Message d'erreur : "La méthode 'Visible' de l'objet 'CommandBars' a échoué"

Y a t-il une autre solution ?

Merci d'avance pour vos réponses

[mouaa]

tu as essayé avec la barre "Standard"

... si ça se trouve, il y a des barres impossibles à masquer, d'où ton message d'erreur....

et as-tu essayé d'enregistrer une macro aussi ?
c'est super utile mine de rien....

[Muhad'hib]

Salut,

Effectivement il n'est pas possible (à ma connaissance) de masquer la barre de menu.

Par contre tu dois pouvoir masquer tous les éléments de la barre, pour laisser une barre vide

Genre un peu comme ça :

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
Sub DVP_COM()
Dim I As Integer
For I = 1 To Application.CommandBars.Count
    If Application.CommandBars(I).Visible = True Then
        sMasqueBarre I
    End If
Next
End Sub
Sub sMasqueBarre(Arg_ID As Integer)
Dim I As Integer
    On Error GoTo sMasqueBarre_Error
Application.CommandBars(Arg_ID).Visible = False
   On Error GoTo 0
sMasqueBarre_Exit:
    Exit Sub
sMasqueBarre_Error:
    If Err.Number = -2147467259 Then
        For I = 1 To Application.CommandBars(Arg_ID).Controls.Count
            Application.CommandBars(Arg_ID).Controls(I).Visible = True
        Next
    Else
        MsgBox "Erreur inatendue N°" & Err.Number & " (" & Err.Description & ") dans la fonction/procédure sMasqueBarre du Document VBA ThisWorkbook"
    End If
GoTo sMasqueBarre_Exit
End Sub

J'ai fait ça directement sur Excel donc il te faudra remplacer des "Application" par "objApp"

[mouaa]

wahou, bien joué !

et sinon à tout hasard, en plein écran est-ce qu'on voir les barres de menu ?

parce que ça pourrait être une piste aussi....

[Muhad'hib]

Tu peux peut être aussi voir s'il existe un équivalent de ça pour Excel.