supprimer la barre des menus

Le
Sunburn
Bonjour,
je souhaite supprimer la barre des menus, car j'ai ma propre barre d'outil.
J'ai ce code, mais il désactive aussi le clic droit et les racourcis clavier.
donc avez-vous autre chose à me proposé? Merci. Yann
-
'supprimer l'affichage de la barre des menus
Sub SUPPRIMERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub
'restaurer l'affichage de la barre des menus
Sub RESTAURERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
-
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #17526531
Bonjour,
Après avoir créer ton menu perso ex : "men"
MenuBars("men").Menus.Add NomMenu ' NomMenu = composition de tes menus
persos
doit te virer le menu Excel
ensuite n'oublie pas de le remettre
Sub SupprimerMen()
MenuBars(xlWorksheet).Reset
MenuBars(xlModule).Activate
MenuBars("men").Delete
End Sub

--
Cordialement

"Sunburn" news:
Bonjour,
je souhaite supprimer la barre des menus, car j'ai ma propre barre
d'outil.
J'ai ce code, mais il désactive aussi le clic droit et les racourcis
clavier.
donc avez-vous autre chose à me proposé? Merci. Yann
----
'supprimer l'affichage de la barre des menus
Sub SUPPRIMERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub
'restaurer l'affichage de la barre des menus
Sub RESTAURERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
----------


Sunburn
Le #17527021
Re,
en fait, il s'agit d'une barre d'outil que je crée.
après avoir créer ma barre d'outils, je ne veux plus les barres d'outils
Excel, ni même la possibilté d'en rajouter.
et cela, tout en conservant l'usage du clic droit dans les cellules, et sur
les onglets afin de pouvoir les duppliquer.
comment puis-je faire.
MERCI
yann


"JPMonnier" a écrit :

Bonjour,
Après avoir créer ton menu perso ex : "men"
MenuBars("men").Menus.Add NomMenu ' NomMenu = composition de tes menus
persos
doit te virer le menu Excel
ensuite n'oublie pas de le remettre
Sub SupprimerMen()
MenuBars(xlWorksheet).Reset
MenuBars(xlModule).Activate
MenuBars("men").Delete
End Sub

--
Cordialement

"Sunburn" news:
> Bonjour,
> je souhaite supprimer la barre des menus, car j'ai ma propre barre
> d'outil.
> J'ai ce code, mais il désactive aussi le clic droit et les racourcis
> clavier.
> donc avez-vous autre chose à me proposé? Merci. Yann
> ----
> 'supprimer l'affichage de la barre des menus
> Sub SUPPRIMERMENUS()
> Dim CmdB As CommandBar
> For Each CmdB In Application.CommandBars
> CmdB.Enabled = False
> Next CmdB
> End Sub
> 'restaurer l'affichage de la barre des menus
> Sub RESTAURERMENUS()
> Dim CmdB As CommandBar
> For Each CmdB In Application.CommandBars
> CmdB.Enabled = True
> Next CmdB
> End Sub
> ----------




JPMonnier
Le #17526991
Ces proc ne supprime pas le click droit
et la proc rétablit le menu Excel avant de quitter simplement !
--
Cordialement


"Sunburn" news:
Re,
en fait, il s'agit d'une barre d'outil que je crée.
après avoir créer ma barre d'outils, je ne veux plus les barres d'outils
Excel, ni même la possibilté d'en rajouter.
et cela, tout en conservant l'usage du clic droit dans les cellules, et
sur
les onglets afin de pouvoir les duppliquer.
comment puis-je faire.
MERCI
yann


"JPMonnier" a écrit :

Bonjour,
Après avoir créer ton menu perso ex : "men"
MenuBars("men").Menus.Add NomMenu ' NomMenu = composition de tes menus
persos
doit te virer le menu Excel
ensuite n'oublie pas de le remettre
Sub SupprimerMen()
MenuBars(xlWorksheet).Reset
MenuBars(xlModule).Activate
MenuBars("men").Delete
End Sub

--
Cordialement

"Sunburn" news:
> Bonjour,
> je souhaite supprimer la barre des menus, car j'ai ma propre barre
> d'outil.
> J'ai ce code, mais il désactive aussi le clic droit et les racourcis
> clavier.
> donc avez-vous autre chose à me proposé? Merci. Yann
> ----
> 'supprimer l'affichage de la barre des menus
> Sub SUPPRIMERMENUS()
> Dim CmdB As CommandBar
> For Each CmdB In Application.CommandBars
> CmdB.Enabled = False
> Next CmdB
> End Sub
> 'restaurer l'affichage de la barre des menus
> Sub RESTAURERMENUS()
> Dim CmdB As CommandBar
> For Each CmdB In Application.CommandBars
> CmdB.Enabled = True
> Next CmdB
> End Sub
> ----------






LSteph
Le #17528791
Bonsoir,

Mais si la macro de notre ami va fort bien,
lui manque juste le clic droit dans cellule.

Sub SUPPRIMERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
Application.CommandBars("Cell").Enabled = True
End Sub
'restaurer l'affichage de la barre des menus
Sub RESTAURERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub

'lSteph

JPMonnier a écrit :
Ces proc ne supprime pas le click droit
et la proc rétablit le menu Excel avant de quitter simplement !


JPMonnier
Le #17528741
Salut LSteph,
J'ai l'impression que la perte du click droit ne vient pas de la
personnalisation des menus, plusieurs questions sur la disparition du click
droit ont déjà été postées
--
Cordialement


"LSteph" news:
Bonsoir,

Mais si la macro de notre ami va fort bien,
lui manque juste le clic droit dans cellule.

Sub SUPPRIMERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
Application.CommandBars("Cell").Enabled = True
End Sub
'restaurer l'affichage de la barre des menus
Sub RESTAURERMENUS()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub

'lSteph

JPMonnier a écrit :
Ces proc ne supprime pas le click droit
et la proc rétablit le menu Excel avant de quitter simplement !




LSteph
Le #17528941
Bonsoir JP,

Le menu en question est celui que je réactive par cette instruction:

Application.CommandBars("Cell").Enabled = True

C'est le petit qqchose qui devait suivre la désactivation de toute la
collection

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB


Cordialement.

--
lSteph

JPMonnier a écrit :
Salut LSteph,
J'ai l'impression que la perte du click droit ne vient pas de la
personnalisation des menus, plusieurs questions sur la disparition du
click droit ont déjà été postées


Sunburn
Le #17587731
Merci à vous les gars, j'arrive à ce que cela fonctionne.
Yann

"LSteph" a écrit :

Bonsoir JP,

Le menu en question est celui que je réactive par cette instruction:

Application.CommandBars("Cell").Enabled = True

C'est le petit qqchose qui devait suivre la désactivation de toute la
collection

Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB


Cordialement.

--
lSteph

JPMonnier a écrit :
> Salut LSteph,
> J'ai l'impression que la perte du click droit ne vient pas de la
> personnalisation des menus, plusieurs questions sur la disparition du
> click droit ont déjà été postées



Publicité
Poster une réponse
Anonyme