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
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
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
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
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" <nospam-j-pascal@free.fr> a écrit dans le message de news:
eK4MfPSAIHA.3940@TK2MSFTNGP05.phx.gbl...
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
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
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
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
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
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
isabelleBonjour,
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
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" <i@v> a écrit dans le message de news:
eAzgQjSAIHA.4592@TK2MSFTNGP03.phx.gbl...
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
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
isabelleBonjour,
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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" <i@v> a écrit dans le message de news:
eAzgQjSAIHA.4592@TK2MSFTNGP03.phx.gbl...
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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" <i@v> a écrit dans le message de news:
eAzgQjSAIHA.4592@TK2MSFTNGP03.phx.gbl...
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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" <i@v> a écrit dans le message de news:
OmUv5CTAIHA.4496@TK2MSFTNGP06.phx.gbl...
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" <i@v> a écrit dans le message de news:
eAzgQjSAIHA.4592@TK2MSFTNGP03.phx.gbl...
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
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
isabelleBonsoir 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
isabelleBonjour,
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
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
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
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
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 Subpour 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
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
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 Subpour 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
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,
JPjps
"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
isabelleBonsoir 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
isabelleBonjour,
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
Bonsoir,
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
ujBbg$TAIHA.5752@TK2MSFTNGP02.phx.gbl...
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" <i@v> a écrit dans le message de news:
OmUv5CTAIHA.4496@TK2MSFTNGP06.phx.gbl...
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" <i@v> a écrit dans le message de news:
eAzgQjSAIHA.4592@TK2MSFTNGP03.phx.gbl...
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
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,
JPjps
"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
isabelleBonsoir 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
isabelleBonjour,
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