Clic droit...

Bonsoir Caroline,

Les 2 macros "Activate" et "deactivate" fonctionne très bien.

Je crois tout simplement que tu as désactivé les macros événementielles.

Dans un module standard, copie ce qui suit et exécute la macro :
'---------------
Sub ActiverEvenement()
Application.EnableEvents = True
End Sub
'---------------

Et dans cette macro, j'ai ajouté la même ligne
'---------------
Private sub workbook_activate

Application.EnableEvents = True

'désactiver clique droit souris
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
End Sub
'---------------


Maintenant, As-tu toujours le même problème ?


Salutations!




"Caroline L." Bonsoir,

j'ai un problème qui survient la veuille de la remise d'un classeur à des
administrateurs...
Tout allait bien... jusqu'à ce que j'applique une macro qui
désactive le clic droit souris (dans Private sub workbook_activate)
et ré-active le clic droit souris (dans Private sub workbook_deactivate)
La macro qui ne fonctionne plus est la suivante :

Sub liste_onglets()
'afficher liste des noms d'onglets et pouvoir sélectionner la feuille
Application.CommandBars("Workbook tabs").ShowPopup
End Sub

Cette macro (Sub liste_onglets) a été placée sur

un bouton dans la barre
d'outils. Elle fonctionnait très bien jusqu'à ce que j'applique les 2 macros
pour désactiver et réactiver le clic droit souris.
Lorsque j'appuie sur le bouton de la macro Sub liste_onglets, rien ne se
passe. :-(


Voici le détail des macros pour désactiver et réactiver le clic droit
souris:

Private sub workbook_activate

'désactiver clique droit souris
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = False
End With
For Each cbar In Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = False
End If
Next cbar
--------------------------


Private sub workbook_deactivate

'rétablir clique droit souris
With Application
.ScreenUpdating = False
.CommandBars("Toolbar List").Enabled = True
End With
For Each cbar In Application.CommandBars
If cbar.Type = msoBarTypePopup Then
cbar.Enabled = True
End If
Next cbar


Merci de votre aide
P.S. C'est la première fois que je demande cela, mais s'il vous est possible
de me répondre le plus tôt possible, pour que je puisse réparer la "gaf" ce
soir et remettre mon classeur à la direction demain. Merci pour votre
compréhension. :-)

Caroline