[VBA/Access] Est il possible de masquer un élément de menu?

Version imprimable

12/04/2005, 12h31
Yoyo@

[VBA/Access] Est il possible de masquer un élément de menu?

Salut,

Je voudrais savoir s'il était possible sous VBA d'avoir un contrôlre fin des menus.

Je sais que l'on peut masquer un menu tout entier en faisant par exemple:

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

Mais ici, je chercherais à masquer l'élément "Export..." du menu "File" de la barre de menu principale. Et ceci, à la volée!

Est ce possible?

Le but pour moi est d'empêcher l'utilisateur d'exporter sous Excel les données depuis certains états (reports)

Merci.
12/04/2005, 12h36
Tofalu

Bonjour

Code:

Application.CommandBars("File").Controls("Exporter...").Enabled = false

Attention toutefois aux versions françaises/Anglaise. Il suffit alors de remplacer Exporter... par le terme qui figure dans la version US :wink:
12/04/2005, 14h03
Yoyo@
Ca marche, merci!

Mais alors là, il y a un truc que je ne comprends pas...

Quand je demande à Access d'itérer sur toutes mes commandes bars, et de m'afficher leur nom, avec un code du genre:
Code:

1 2 3 4 5 6 7 Dim i As Integer Dim cnt As Integer cnt = CommandBars.Count For i = 1 To cnt msgbox CommandBars.Item(i).Name End If Next i
Il n'y a aucune CommandBard du nom de "File", mais just une CommandBar du nom de "Menu Bar", qui est en fait la barre de menu principale d'Access!

Mais alors, comment ça se fait que référencer CommandBars.Item("File") fonctionne parfaitement, alors que "File" ne semble pas faire partie de la collection des CommandBars??
12/04/2005, 14h04
Yoyo@
Citation:
Envoyé par Yoyo@

Ca marche, merci!

Mais alors là, il y a un truc que je ne comprends pas...

Quand je demande à Access d'itérer sur toutes mes commandes bars, et de m'afficher leur nom, avec un code du genre:

Code:

1 2 3 4 5 6 7 Dim i As Integer Dim cnt As Integer cnt = CommandBars.Count For i = 1 To cnt msgbox CommandBars.Item(i).Name Next i

Il n'y a aucune CommandBard du nom de "File", mais just une CommandBar du nom de "Menu Bar", qui est en fait la barre de menu principale d'Access!

Mais alors, comment ça se fait que référencer CommandBars.Item("File") fonctionne parfaitement, alors que "File" ne semble pas faire partie de la collection des CommandBars??

C'est toute la poésie des CommandBar, CommandBarButton et autre finesses.

Si ca peut t'aider à comprendre, voici le source d'un prg qui _ajoute_ dynamiquement un menu.

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
44
45
Private Sub InitMenu()
    Dim cbCourant As CommandBar
    Dim cbpReporting As CommandBarPopup
    Dim cbReporting As CommandBar
    Dim Dummy As String
 
    ' s'il n'y a pas de menus installés, on quitte l'application.
    If CommandBars.Count = 0 Then
        MsgBox "pas de menu installés"
        Application.Quit
    End If
    Set cbCourant = CommandBars.ActiveMenuBar
 
    ' on vérifie que le menu n'existe pas déjà
    On Error Resume Next
    Dummy = cbCourant.Controls("Reporting").Caption
    If Err.Number = 0 Then
        ' le menu existe déjà : on sort
        Exit Sub
    End If
    On Error GoTo 0
 
    Set cbpReporting = cbCourant.Controls.Add( _
      Type:=msoControlPopup, Temporary:=True)
    cbpReporting.Caption = "&Reporting"
    Set cbReporting = cbpReporting.CommandBar
 
    AddMenuItem Cb:=cbReporting, Legende:="&Charger", Appel:="AppelCharger", BeginGroupFlag:=False
    AddMenuItem Cb:=cbReporting, Legende:="&Vérifier", Appel:="AppelVerifier", BeginGroupFlag:=False
    AddMenuItem Cb:=cbReporting, Legende:="C&onsolider", Appel:="AppelConsolider", BeginGroupFlag:=True
    AddMenuItem Cb:=cbReporting, Legende:="C&lôturer", Appel:="AppelCloturer", BeginGroupFlag:=False
End Sub
 
Private Sub AddMenuItem(Cb As CommandBar, Legende As String, _
  Appel As String, BeginGroupFlag As Boolean)
    Dim cbbNew As CommandBarButton
 
    Set cbbNew = Cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With cbbNew
        .Caption = Legende
        .OnAction = Appel
        .BeginGroup = BeginGroupFlag
    End With
 
End Sub

Accessment,

Yvan