Pour les besoins d'une application que je développe, je suis amené à
chercher à empêcher l'accès par l'utilisateur au controle Built-in dénnomé
"Personnaliser".
Je sais que ce controle a un ID=797 et j'utilise donc la propriété Enabled à
false pour tenter de le verrouiller.Pour ce faire, j'utilise la routine
suivante
Set CollControls = Application.CommandBars.FindControls(ID:=797)
For I = 1 To CollControls.Count
CollControls(I).Enabled = false
Next
Ce qui est étrange, c'est que , ce faisant, j'arrive à verrouiller par
programmation tous les controles du type ID=797 de toutes les barres de
commande à l'exception de celui situé dans "Affichage" puis "Barres d'outils"
du Commandbar "worksheet Menu Bar". Or je sais que celui-ci est aussi du type
ID= 797.
Je coince. Est-ce que quelqu'un aurait une idée pour m'aider.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xav
Bonjour
essaie avec l'ID 30045 pour bloquer le menu
-- Cordialement
@+ Xav "anonymousA" a écrit dans le message de news:
Bonjour,
Pour les besoins d'une application que je développe, je suis amené à chercher à empêcher l'accès par l'utilisateur au controle Built-in dénnomé "Personnaliser".
Je sais que ce controle a un IDy7 et j'utilise donc la propriété Enabled à
false pour tenter de le verrouiller.Pour ce faire, j'utilise la routine suivante
Set CollControls = Application.CommandBars.FindControls(ID:y7)
For I = 1 To CollControls.Count
CollControls(I).Enabled = false Next
Ce qui est étrange, c'est que , ce faisant, j'arrive à verrouiller par programmation tous les controles du type IDy7 de toutes les barres de commande à l'exception de celui situé dans "Affichage" puis "Barres d'outils"
du Commandbar "worksheet Menu Bar". Or je sais que celui-ci est aussi du type
ID= 797.
Je coince. Est-ce que quelqu'un aurait une idée pour m'aider.
Merci d'avance à tous .
Bonjour
essaie avec l'ID 30045 pour bloquer le menu
--
Cordialement
@+
Xav
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news:667DDA45-E5CB-4788-BAF3-D0137D7AC886@microsoft.com...
Bonjour,
Pour les besoins d'une application que je développe, je suis amené à
chercher à empêcher l'accès par l'utilisateur au controle Built-in dénnomé
"Personnaliser".
Je sais que ce controle a un IDy7 et j'utilise donc la propriété Enabled
à
false pour tenter de le verrouiller.Pour ce faire, j'utilise la routine
suivante
Set CollControls = Application.CommandBars.FindControls(ID:y7)
For I = 1 To CollControls.Count
CollControls(I).Enabled = false
Next
Ce qui est étrange, c'est que , ce faisant, j'arrive à verrouiller par
programmation tous les controles du type IDy7 de toutes les barres de
commande à l'exception de celui situé dans "Affichage" puis "Barres
d'outils"
du Commandbar "worksheet Menu Bar". Or je sais que celui-ci est aussi du
type
ID= 797.
Je coince. Est-ce que quelqu'un aurait une idée pour m'aider.
@+ Xav "anonymousA" a écrit dans le message de news:
Bonjour,
Pour les besoins d'une application que je développe, je suis amené à chercher à empêcher l'accès par l'utilisateur au controle Built-in dénnomé "Personnaliser".
Je sais que ce controle a un IDy7 et j'utilise donc la propriété Enabled à
false pour tenter de le verrouiller.Pour ce faire, j'utilise la routine suivante
Set CollControls = Application.CommandBars.FindControls(ID:y7)
For I = 1 To CollControls.Count
CollControls(I).Enabled = false Next
Ce qui est étrange, c'est que , ce faisant, j'arrive à verrouiller par programmation tous les controles du type IDy7 de toutes les barres de commande à l'exception de celui situé dans "Affichage" puis "Barres d'outils"
du Commandbar "worksheet Menu Bar". Or je sais que celui-ci est aussi du type
ID= 797.
Je coince. Est-ce que quelqu'un aurait une idée pour m'aider.
