Qu'est ce qui se passe?

[GS82]

Salut
j'ai voulu rendre l'affichage d'une application en Excel VBA plus professionnel en éliminant les barres d'outils au démarrage
j'ai utilisé la fonction .Enabled
le problème que les barres d'outils ne sont plus fonctionnelles dans tous les fichiers Excel
en plus cliquer par le bouton droit de la souris ne fonctionne plus
j'ai essayé de rétablir ces barres d'outils mais en vain
aider moi sachant que le poste ou ce problème est apparu n'est pas le mien mais d'un collegue qui sera ici cet après midi :'''(

 

[GS82]

Re : Qu'est ce qui se passe?

En fait les barres d'outils ne sont plus visibles
je ne peux plus acceder au code pour changer les paramètres
aidez moi SOSOSOSOSOSOS !!!!!!!!!!!

 

[Pierrot93]

Re : Qu'est ce qui se passe?

Bonjour gs

regarde ce fil dans la FAQ :

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

bonne journée
@+

 

[GS82]

Re : Qu'est ce qui se passe?

en fait je devrait réactiver ces barres avant la fermeture du fichier du genre


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(i).Enabled = True
End Sub

mais j'ai oublié
comment faire pour tout restaurer????

 

[Bernard_XLD]

Re : Qu'est ce qui se passe?

Bonjour

une boucle sur les barres

A+

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Cmdb In Application.CommandBars
Cmdb.Enabled = True
Next Cmdb
End Sub

 

[GS82]

Re : Qu'est ce qui se passe?

Merci Mec c'est très sympa de ta part