Microsoft 365 clic droit inactif

[micheldu52]

Bonsoir,
A mon tour de poser une question....
Sur office 365 ProPlus, le clic droit ne me donne plus le menu contextuel (afin, par exemple de masquer des lignes ou colonnes,mais dans une cellule c'est identique et, par exemple, plus d'accès à "format", à coller....).
Je ne vois pas où agir sur cela...
Help donc !

 

[Staple1600]

Bonsoir le fil, micheldu52

•>micheldu52
Tu es à l'aise avec le VBA?
Si oui éxécutes ce code

Sub ReinitMD()
CommandBars("Cell").Reset
End Sub

 

[micheldu52]

Bonsoir,
Pas trop...
Je voudrais que cela soit "de base" à l'ouverture d'excel.
Je ne sais pas comment je l'ai désactivé!
peut etre d'ailleurs en aidant sur ce forum qqun d'autre qui avait intégré cela dans une de ses macros, c'est une hypothése en tout cas.
Il faudrait que je rétablisse cela "une fois pour toute", car celtte "disparition" (de clic droit) est assez handicapante….
Merci d'avance!
Bien cordialement,
Michel

 

[Staple1600]

Re

Cette macro n'est qu'à lancer qu'une seule fois.
Elle permet de réactiver le menu contextuel.
Tu as essayé?
(NB: Je parle de la macro que j'ai posté dans le message#2)

 

[micheldu52]

je ne l'avais pas vu, j'étai resté.... confiné! à la première partie de ton message!

je l'ai lancé, mais ça ne change pas le problème, désolé!

 

[GALOUGALOU]

bonsoir michel du 52 bonsoir staple1600 (ça faisait longtemps !) bonsoir le forum

le menu contextuel est peut être été désactivé par une de ces procédures. si tel est le cas supprimer la procédure.

Pour désactiver dans une feuille : Macro à coller dans le module de la feuille.
Code :

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    End Sub


Pour désactiver dans tout le classeur : Macro à coller dans le module de ThisWorkbook
Code :

    Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    End Sub

il est possible dans le code de la macro à l'éxécution, de rajouter

 Cancel = false

cordialement
galougalou

 

[Staple1600]

Bonsoir GALOUGALOU

•>micheldu52
Et avec celle-ci?

Sub ReinitMD_II()
CommandBars("Cell").Enabled = True
CommandBars("Cell").Reset
End Sub

 

[micheldu52]

Merci pour votre aide!
Avec celle la le clic droit est réapparu dans une cellule
mais pas quand je suis dans la "marge gauche" (sur le numéros de lignes)
donc (par exemple) la fonction "coller" est active (dans cellule) mais pas la fonction "masquer" (dans la marge)

 

[micheldu52]

j'ai trouvé sur un autre forum celle ci et ça marche :

Sub Enable_All_Right_Click_Menus()
‘This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

 

[micheldu52]

rectification !
Elle marche mais il faut la relancer à chaque démarrage d'excel!
Comment lui donner une "portée définitive"?
Merci d"'avance pour votre aide!

 

[Staple1600]

Re

Est-ce que tu as des macros stockées dans ton classeur de macros personnelles?

 

[micheldu52]

non aucune!

 

[GALOUGALOU]

re
s'il faut la relancer cela signifie que le clic droit est désactivé par une procédure. a chercher dans évenement classeur ou évenement feuille
@+

 

[micheldu52]

Dis moi comment regarder cela stp....

 

[GALOUGALOU]

re le fil
ouvrir l'éditeur vba alt+f4

clic droit/code dans thisworkbook
chercher "cancel = true"

idem dans chaque feuille concernée
clic droit/code
chercher "cancel = true"

cancel=true desactive le clic droit, il suffit de modifier true par false pour le réactiver.

sans classeur, nous sommes bien sur en théorie
ce problème est aussi évoque dans ce fil et a trouvé sa solution.

XL 2019 - Clic à droit ne fonction plus dans un fichier

Bonjour le forum Je ne peux pas clic a droit mon fichier ; pouvez-vous me corriger cette erreur Merci d’avance

www.excel-downloads.com

cordialement
galougalou