Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (vba) clic droit sur onglets

(vba) clic droit sur onglets

11 réponses
Avatar
j-pascal
Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
bonjour jp

essaie ceci :

Application.CommandBars("Ply").Controls("Sélectionner toutes les
feuilles").Enabled = False

sur une seule ligne
et tu remets à True pour récupérer le contrôle en question
HTH
jps

"j-pascal" a écrit dans le message de news:

Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP




Avatar
j-pascal
Bonsoir,
Merci pour cette proposition. Où dois-je mettre le code ? Dans
"ThisWorkbook" ? Dans le module "Private Sub auto_open()" ?
Même question pour le code à True ;-) J'imagine que ce code modifie Excel
(au delà de mon classeur) ?! Si oui, quid d'une sortie avant la procédure de
remise en forme ??

@+ ?

JP

"jps" a écrit dans le message de news:

bonjour jp

essaie ceci :

Application.CommandBars("Ply").Controls("Sélectionner toutes les
feuilles").Enabled = False

sur une seule ligne
et tu remets à True pour récupérer le contrôle en question
HTH
jps

"j-pascal" a écrit dans le message de news:

Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP







Avatar
isabelle
bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les feuilles").Enabled = False

isabelle

Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP




Avatar
isabelle
bonjour JP,

je mettrais ces deux macro dans un module standard

Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les feuilles").Enabled = True
End Sub


et celle ci dans ThisWorkbook

Private Sub Workbook_Open()
DésactiverCommande
End Sub


isabelle


Bonsoir Isabelle,

Merci.
Je pensais que c'était la même proposition que celle de jps, mais je
vois un " & " en plus ...
Où faut-il mettre ce code ? ... et la "réactivation" ?

@+ ?

JP
"isabelle" a écrit dans le message de news:


bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False

isabelle


Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP







Avatar
j-pascal
Re,

Tout fonctionne parfaitement.
En fait, cette procédure n'affecte pas les autres classeurs, ce que j'ai
craint un instant ...
Merci,

JP

"isabelle" a écrit dans le message de news:

bonjour JP,

je mettrais ces deux macro dans un module standard

Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = True
End Sub


et celle ci dans ThisWorkbook

Private Sub Workbook_Open()
DésactiverCommande
End Sub


isabelle


Bonsoir Isabelle,

Merci.
Je pensais que c'était la même proposition que celle de jps, mais je vois
un " & " en plus ...
Où faut-il mettre ce code ? ... et la "réactivation" ?

@+ ?

JP
"isabelle" a écrit dans le message de news:


bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False

isabelle


Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le
projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP









Avatar
jps
pour isabelle : dis, mon ange, il ne manquerait pas la ré(s)activation de la
commande dans quelque Workbook_BeforeClose, par zazard?
pour j-pascal : l'éperluette devant le mot Sélectionner correspond à la
lettre à utiliser dans les raccourcis clavier (celle qui est soulignée dans
le titre du bouton du menu déroulant, le "S" dans le cas qui nous préoccupe)
; le fait de faire apparaître ce & dans la proc reste, selon moi,
superfétatoire
jps

"isabelle" a écrit dans le message de news:

bonjour JP,

je mettrais ces deux macro dans un module standard

Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = True
End Sub


et celle ci dans ThisWorkbook

Private Sub Workbook_Open()
DésactiverCommande
End Sub


isabelle


Bonsoir Isabelle,

Merci.
Je pensais que c'était la même proposition que celle de jps, mais je vois
un " & " en plus ...
Où faut-il mettre ce code ? ... et la "réactivation" ?

@+ ?

JP
"isabelle" a écrit dans le message de news:


bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False

isabelle


Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le
projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel ??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP









Avatar
j-pascal
Bonsoir,

"jps" a écrit dans le message de news:
ujBbg$
pour isabelle : dis, mon ange, il ne manquerait pas la ré(s)activation


J'avais corrigé la "ré(s)activation" ;-)

de la commande dans quelque Workbook_BeforeClose, par zazard?


Je me le suis demandé, mais finalement, à quoi bon remettre en place puisque
cela n'affecte pas (sauf erreur de ma part) les autres classeurs. J'imagine
qu'en lançant ladite proc directement depuis le fenêtre de code cela doit
suffire à tout réactiver ?!

pour j-pascal : l'éperluette devant le mot Sélectionner correspond à la
lettre à utiliser dans les raccourcis clavier (celle qui est soulignée
dans le titre du bouton du menu déroulant, le "S" dans le cas qui nous
préoccupe) ; le fait de faire apparaître ce & dans la proc reste, selon
moi, superfétatoire


Je n'ai douté, ni de toi, ni d'Isabelle ... je me suis juste permis de noter
la "petite" différence entre vos deux propositions ;-)
Merci néanmoins pour cette explication.

A bientôt,

JP

jps

"isabelle" a écrit dans le message de news:

bonjour JP,

je mettrais ces deux macro dans un module standard

Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = True
End Sub


et celle ci dans ThisWorkbook

Private Sub Workbook_Open()
DésactiverCommande
End Sub


isabelle


Bonsoir Isabelle,

Merci.
Je pensais que c'était la même proposition que celle de jps, mais je
vois un " & " en plus ...
Où faut-il mettre ce code ? ... et la "réactivation" ?

@+ ?

JP
"isabelle" a écrit dans le message de news:


bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False

isabelle


Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le
projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel
??
(En vba, car le classeur doit rester accessible à divers utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP













Avatar
isabelle
pour isabelle : dis, mon ange, il ne manquerait pas la ré(s)activation de la
commande dans quelque Workbook_BeforeClose, par zazard?


oui mon ange heureusement que tu veille au grain, mais je mettrai plutot dans le désactivate, et le tous dans Thisworkbook,

Private Sub Workbook_Activate()
DésactiverCommande
End Sub

Private Sub Workbook_Deactivate()
RésactiverCommande
End Sub

Private Sub Workbook_Open()
DésactiverCommande
End Sub
Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les feuilles").Enabled = True
End Sub

pour j-pascal : l'éperluette devant le mot Sélectionner correspond à la
lettre à utiliser dans les raccourcis clavier (celle qui est soulignée dans
le titre du bouton du menu déroulant, le "S" dans le cas qui nous préoccupe)
; le fait de faire apparaître ce & dans la proc reste, selon moi,
superfétatoire


ha bon merci jean paul pour cette info,

ton ange

Avatar
jps
:-)
jps

"isabelle" a écrit dans le message de news:



pour isabelle : dis, mon ange, il ne manquerait pas la ré(s)activation de
la commande dans quelque Workbook_BeforeClose, par zazard?


oui mon ange heureusement que tu veille au grain, mais je mettrai plutot
dans le désactivate, et le tous dans Thisworkbook,

Private Sub Workbook_Activate()
DésactiverCommande
End Sub

Private Sub Workbook_Deactivate()
RésactiverCommande
End Sub

Private Sub Workbook_Open()
DésactiverCommande
End Sub
Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = True
End Sub

pour j-pascal : l'éperluette devant le mot Sélectionner correspond à la
lettre à utiliser dans les raccourcis clavier (celle qui est soulignée
dans le titre du bouton du menu déroulant, le "S" dans le cas qui nous
préoccupe) ; le fait de faire apparaître ce & dans la proc reste, selon
moi, superfétatoire


ha bon merci jean paul pour cette info,

ton ange



Avatar
jps
merci pour le retour
bonne chance pour le reste
jps

"j-pascal" a écrit dans le message de news:

Bonsoir,

"jps" a écrit dans le message de news:
ujBbg$
pour isabelle : dis, mon ange, il ne manquerait pas la ré(s)activation


J'avais corrigé la "ré(s)activation" ;-)

de la commande dans quelque Workbook_BeforeClose, par zazard?


Je me le suis demandé, mais finalement, à quoi bon remettre en place
puisque cela n'affecte pas (sauf erreur de ma part) les autres classeurs.
J'imagine qu'en lançant ladite proc directement depuis le fenêtre de code
cela doit suffire à tout réactiver ?!

pour j-pascal : l'éperluette devant le mot Sélectionner correspond à la
lettre à utiliser dans les raccourcis clavier (celle qui est soulignée
dans le titre du bouton du menu déroulant, le "S" dans le cas qui nous
préoccupe) ; le fait de faire apparaître ce & dans la proc reste, selon
moi, superfétatoire


Je n'ai douté, ni de toi, ni d'Isabelle ... je me suis juste permis de
noter la "petite" différence entre vos deux propositions ;-)
Merci néanmoins pour cette explication.

A bientôt,

JP

jps

"isabelle" a écrit dans le message de news:

bonjour JP,

je mettrais ces deux macro dans un module standard

Private Sub DésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False
End Sub

Private Sub RésactiverCommande()
Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = True
End Sub


et celle ci dans ThisWorkbook

Private Sub Workbook_Open()
DésactiverCommande
End Sub


isabelle


Bonsoir Isabelle,

Merci.
Je pensais que c'était la même proposition que celle de jps, mais je
vois un " & " en plus ...
Où faut-il mettre ce code ? ... et la "réactivation" ?

@+ ?

JP
"isabelle" a écrit dans le message de news:


bonjour JP,

Application.CommandBars("Ply").Controls("&Sélectionner toutes les
feuilles").Enabled = False

isabelle


Bonjour,

Mon classeur est protégé par des :

-ThisWorkbook.Protect
-ActiveSheet.Protect Password:

Pb, le clic droit sur les onglets laisse actif :
- "Visualiser le code" (inopérant puisque j'ai mis un MdP sur le
projet)
- "Sélectionner toutes les feuilles". Mon pb est là !!

Est-il possible de "griser" cette dernière option du menu contextuel
??
(En vba, car le classeur doit rester accessible à divers
utilisateurs)

Merci d'avance pour vos lumières,

Cordialement,

JP
















1 2