Enable / Disable un menu personalisé

Bonjour tout le monde.  Je m'en remet encore une fois à vous tous... : Je suis en train de créer un formulaire.  Ce formulaire sera placé sur un réseau.  J'ai placé dans le formulaire un menu personalisé dans la "commandbar" standard (groupe des menus Fichiers, Edition, etc...).  Le menu que j'ai cré en mode "Personalier..." du menu Outils lorque mon formulaire n'était pas protégé s'appel : Fonctions spéciales (Fon&ctions spéciales).  J'ai placé des macros la dedans.  Dans mon formulaire, lorqu'il ouvre, j'ai placé une fonction (module) qui récupère le nom de l'ordinateur et si ce n'est pas "EDH827", je veux que mon menu personalisé soit non disponible.  Comment je fais??? J'ai tenté plusieurs syntaxes de la ligne en rouge ci-bas sans résultat. 

Language :  VBA
Application : Mocrosoft Word 2002 (v10).  Je ne peux pas changer c'est celui de mon employeur.

Fonction de récupération du nom de l'ordinateur appelé à l'ouverture du formulaire :
' ----------------- DÉBUT DU CODE -------------------------------------------------------------------------------
Private Declare Function GetComputerNameA Lib "kernel32" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Function CurrentMachineName() As String

    '  Déclaration des variables.
    Dim lSize As Long
    Dim sBuffer As String
   
    '  Assignation des valeurs aux variables.
    sBuffer = Space$(16)
    lSize = Len(sBuffer)
   
    '  Récupération de l'identité de l'ordinateur.
    If GetComputerNameA(sBuffer, lSize) Then
          CurrentMachineName = Left$(sBuffer, lSize)
    End If
   
    '  Vérification de l'identité de l'ordinateur du bureau des CU se service.
    If CurrentMachineName = "EHD827" Then
        GoTo Line1:
    Else
        '  SYNTAXE PAS BONNE : Application.CommandBars("standard").Controls("Fonctions Spéciales").Enabled = False
    End If

Line1:

End Function
' -------------------------- FIN DU CODE -------------------------------------------------------------------------

Merci de votre temps.

Yann Lapointe

Bonjour,

As-tu essayé Application.CommandBars("standard").Visible = False?
Autre chose, écris le test comme ceci, ça fait plus propre !

   If CurrentMachineName <> "EHD827" Then
        Application.CommandBars("standard").Visible = False
   End If


Didier

Merci pour la réponse mais je cherche vraiment a rendre non disponible ce menu en particulier.  Il est facile pour un utilisateur de refaire apparaitre ce menu (standard)

Merci pour la clarification du <> j'en prend bonne note!  J'ai appris le VB dans le temps avec
line1
line2
etc... 

De la la déformation...

Yann

Bonsoir,

Ok ! As-tu essayé tout simplement ceci :
Application.CommandBars("Fonctions Spéciales").Enabled = False

Cela devrait faire disparaitre la barre en question.

Didier

J'essai au travail lundi et je t'en donne des nouvelles.  Cependant, j'ai tenté plusieurs syntaxes pour la faire disparaitre...

Ce matin je crois que j'ai trouvé comment savoir "word/vba" reconnait cette commandbar.  Je vais enregistrer une nouvelle macro et simplement cliquer dessus.  Ensuite je vais voir avec VBA editor et bingo : j'aurai l'ID officiel de mon menu personalisé, ca va aider pour la désactiver.

Bonsoir Didier, si je crée une barre de commande "Fonctions spéciales" de cette facon : Oulits, personaliser, onglet barres d'outils, Nouvelle...  ta commande fonctionne!  Ce qui sera fort probablement mon choix puisque c'est rienque de meme que ca marche.

Cependant, j'aimerais vraiment mieux ca : dans word : Outils, personaliser, onglet (2) commandes,  dernier option dans la case de gauche (nouveau menu), et c'est la que je l'ai mise (avec comme nom : Fonctions spéciales) avec les autres dans la barre tout en fait en haut de word entre les menus Fenêtre et ?    Et ma question est comment l'invalider et la valider.

Ah ben la je suis complé à 150%!!!  Didier, c'est ca que je recherchais!!!  La clé était que le menu devait etre cré en vba et non en mode personaliser dans word.  Comme ca ben je peux faire ce que je veux avec la barre!!!

Encore un gros merci.

Yann

Bonsoir,

Je viens de déposer un tutoriel sur le sujet.
En fouillant, je me suis rendu compte ue ce n'était pas si évident que cela et que l'aide sous VBA n'est pas très claire.
Bonne soirée,

Didier