Outils grisé mais fonctionnel ! [Résolu]

Marsh Posté le 24-01-2006 à 15:51:28

J'ai utilisé le code

Citation :

Dim barre As CommandBar

For Each barre In Application.CommandBars
barre.Enabled = False
Next

Le probleme est que je ne l'ai pas fermé sur le coup, donc je n'y avais plus accès...

Maintenant, j'ai arrangé ça en le mettant à True mais tout ce que Option contient dans Excel n'est plus accessible. Par contre, si je fais F7 par exemple pour faire l'orthographe, ça fonctionne. Donc c'est seulement grisé et non cliquable. Par pratique pour aller dans l'option sécurité !

Connaissez-vous un moyen de changer cet option des barres ?
En passant, j'ai désinstaller et réinstaller office 2 fois, sans succes !

Message édité par St4rk le 10-02-2006 à 11:08:51

Marsh Posté le 24-01-2006 à 15:51:28

Marsh Posté le 24-01-2006 à 16:43:00

Bonsoir,
Essaie ça:

Code :

Sub MenuShow()
MenuBars(xlWorksheet).Reset
End Sub

A+

---------------
roger

Marsh Posté le 24-01-2006 à 16:56:05

J'ai pris juste la ligne qui reset que j'ai mis dans mon Workbook_Open() et c'est exactement ce que je recherchais !!

Très sympa, merci

Marsh Posté le 24-01-2006 à 21:37:54

:jap:

---------------
roger

Marsh Posté le 25-01-2006 à 10:59:29

Salut,

je crois qu'il y a confusion entre commandbars et CommandBarControl

si tu as modifié les contrôles d'une barre de commande, Commandbars(1).enabled ne rétabli pas ce que tu as modifié alors que reset si.

reset est aussi accessible en passant par clickdroit sur une commandbar puis personnaliser, onglet option et réinitialiser les menus.

Marsh Posté le 07-02-2006 à 15:55:49

En fait, je n'ai pas pris de chance, je me suis fait un autoexec avec mon workbook_open qui me fait ceci :

Citation :

Dim cbar As CommandBar
For Each cbar In Application.CommandBars
cbar.Enabled = True
Next

MenuBars(xlWorksheet).Reset

Comme ça, je suis assuré de ne plus perdre ni mes menus, ni mes barres de commandes.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *