Désactiver un menu

[GS82]

J'aimerai bien savoir comment désactiver un menu excel
je dis bien desactiver et non supprimer
par exemple j'aime bien que enabled = faux pour format/feuille/afficher c 'a dire visibla mais pas fonctionnelle
sachant que bien sur j'aime bien que la fonction retourne au normal une fois je quitte mon application
merci d'avance, vous etes vraiment geniaux (chaque fois que je pose un pb, on me repond vraiment vite, vous etes forts!!)🙂

 

[tototiti2008]

Re : ;-)

Bonjour GS82,

un essai :

Sub test()
Application.CommandBars("Worksheet Menu Bar").Controls("Fichier").Enabled = False
End Sub

Remarque : ça marche sur la version française, pour que ça marche pour toutes les versions, il vaut mieux faire :

Sub test()
Application.CommandBars("Worksheet Menu Bar").Controls(1).Enabled = False
End Sub

 

[tototiti2008]

Re : ;-)

pourquoi tu désactives "Format-Feuille-Afficher", en général ?

 

[BERRACHED said]

Re : ;-)

Salut,Gs82,tototiti2008

voici une methode qui conssiste a cacher la barre de menu en la remplaçant par une fausse :

'un truc peu connu : cacher la barre des menus en la remplaçant par une "fausse"
'repose sur le fait qu'Excel ne peut afficher 2 barres de menu en même temps

Sub MakeEmptyMenuBar()
Dim NewmenuBar As CommandBar

  Call deleteEmptyMenuBar      'toujour une bonne pratique

  Set NewmenuBar = CommandBars.Add(MenuBar:=True)
  With NewmenuBar
    .Name = "MyEmptyMenu"
    .Visible = True ' this is the the trick
  End With

End Sub

Sub deleteEmptyMenuBar()
  On Error Resume Next
  CommandBars("MyEmptyMenu").Delete
  On Error GoTo 0
End Sub

'la manière classique de cacher la barre de menus d'Excel
'préférable : ne laisse pas un "vide" sous la barre de titre
Sub CacheMenu()
  Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
  Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Cordialement

 

[GS82]

Re : ;-)

merci
en fait je vais essayer et voire ce que ca donne
en fait je veux desactiver la fonction afficher car je vais mettre en place une petite application en reseau et j'aimerai bien que certaines feuilles restent en cachettes !!
je vous reponds ASAP

 

[GS82]

Re : ;-)

et bein t'es trop fort Mr Said
merci a vous ainsi qu'au tototiti2008 et bonne journée

 

[Staple1600]

Re : ;-)

Bonjour



Par prévention et précaution, je recite ce lien, si jamais un souci survient

https://www.excel-downloads.com/threads/excel-jai-perdu-mes-barres-doutils-et-menu.81049/

 

[JCGL]

Re : ;-)

Bonjour à tous,

Stapple 🙂 : tu paries que notre ami réclame de l'Aide pour rétablir ses Barres de Menu....

A+ 🙂
A+ à tous

 

[tototiti2008]

Re : Désactiver un menu

Bonjour Staple, Bonjour JCGL,

en effet ça ne m'étonnerais pas. Je pense qu'il aurait été préférable qu'il se contente de griser le Menu Fichier, c'est plus facile à rétablir... (Outils-Personnaliser, Réinitialiser)