(vba) clic droit sur onglets

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jps
Le #4857241
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"
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




j-pascal
Le #4857231
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"
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







isabelle
Le #4857221
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




isabelle
Le #4857161
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







j-pascal
Le #4857081
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









jps
Le #4856881
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









j-pascal
Le #4856741
Bonsoir,

"jps" 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













isabelle
Le #4856591
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

jps
Le #4856521
:-)
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



jps
Le #4856511
merci pour le retour
bonne chance pour le reste
jps

"j-pascal"
Bonsoir,

"jps" 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
















Publicité
Poster une réponse
Anonyme