Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Obtient ou définit une constante msoBarProtection représentant la façon dont une barre de commandes est protégée contre la personnalisation de l’utilisateur. Lecture-écriture.
Remarque
L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.
Syntaxe
expression. Protection
expression Variable qui représente un objet CommandBar .
Remarques
L'utilisation de la constante msoBarNoCustomize empêche les utilisateurs d'accéder au menu Ajouter/Supprimer des boutons (ce menu permet aux utilisateurs de personnaliser une barre d'outils).
Exemple
Cet exemple montre comment parcourir la collection de barres de commandes pour rechercher la barre de commandes nommée Forms. Si cette barre de commandes est trouvée, son état d’ancrage est protégé et il est rendu visible.
foundFlag = False
For i = 1 To CommandBars.Count
If CommandBars(i).Name = "Forms" Then
CommandBars(i).Protection = msoBarNoChangeDock
CommandBars(i).Visible = True
foundFlag = True
End If
Next
If Not foundFlag Then
MsgBox "'Forms' command bar is not in the collection."
End If
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.