Accés control dans une commandbar avec VBA

Résolu/Fermé

supermoun Messages postés 38 Date d'inscription dimanche 10 septembre 2006 Statut Membre Dernière intervention 26 juillet 2009 - 20 févr. 2008 à 15:45
supermoun Messages postés 38 Date d'inscription dimanche 10 septembre 2006 Statut Membre Dernière intervention 26 juillet 2009 - 21 févr. 2008 à 14:15

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.

A voir également:

Accés control dans une commandbar avec VBA
Acces rapide - Guide
Adb app control - Guide
Control center 4 - Télécharger - Divers Utilitaires
Copytrans control center - Télécharger - Divers Utilitaires
Control panel - Télécharger - Divers Utilitaires

1 réponse

Réponse 1 / 1

Utilisateur anonyme
20 févr. 2008 à 16:05

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

supermoun Messages postés 38 Date d'inscription dimanche 10 septembre 2006 Statut Membre Dernière intervention 26 juillet 2009 7
21 févr. 2008 à 14:15

Bonjour Lupin.A
Merci pour la réponse.
C'est OK
A+

Discussions similaires

A quoi sert ETDctrl ? Peut-on le supprimer ?

Live tiktok

comment me débasasser de connectwise control?

"L'indice n'appartient à la sélection" + VBA

Comment enlever connecté wise control