Accés control dans une commandbar avec VBA Résolu

Question

Bonjour à tous,

Pour interdire  l' accès d'un contrôle dans la barre commandBars(1), on peut écrire ceci:
 
With Application
        
    With .CommandBars(1)
    '
    .Controls(2).Enabled = False
    '
    .Controls(4).Enabled = False
    '
    .Controls(5).Enabled = False
    '
    .Controls(6).Enabled = False
    '
    .Controls(7).Enabled = False
    End With

End With

J'ai voulu interdire le contrôle fenêtre donc en toute logique le 8, ça ne marche pas.
Quelqu'un a-t-il la réponse.
Merci d'avance.

Utilisateur anonyme · Accepted Answer

Bonjour,

exemple type :


Sub DesactiveMenuFenetre()

    With Application.CommandBars.ActiveMenuBar.Controls.Item(9)
        .Enabled = False
    End With

End Sub
'

Sub ActiveMenuFenetre()

    With Application.CommandBars.ActiveMenuBar.Controls.Item(9)
        .Enabled = True
    End With

End Sub
'

Lupin

Accés control dans une commandbar avec VBA

1 réponse

Discussions similaires

Newsletters