m'excuse de m'immiscer mais la macro en question ne rétablit rien. Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus, etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
Next End sub
Merci Caroline
re,
m'excuse de m'immiscer mais la macro en question ne rétablit rien.
Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta
macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela
sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer.
c'est une macro a placé dans un autre classeur ? et je nomme
"celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le
reste, c'est ça ?
ta macro sert à tout rétablir (le clic droit souris, réactiver les menus,
etc.) C'est bien ça ?
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OIxQbHVOFHA.3444@tk2msftngp13.phx.gbl...
Re,
juste qd même si tu te coinces à ton propre piège:
dans le perso.xls!
sub okaou()
application.enableeventsúlse
Workbooks.open("celuideCaroline.xls")
end sub
'lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
JRg4e.25646$g_5.660757@wagner.videotron.net...
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic
droit
de souris... et le projet VBA est protégé.
Ca va de mieux en mieux mon apprentissage !
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425195c1$0$1239$8fcfb975@news.wanadoo.fr...
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans
Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour
l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour
enlever
l'affichage de la barre de formule:
Private Sub Workbook_Activate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = False
Next
End sub
Private Sub Workbook_Deactivate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = True
m'excuse de m'immiscer mais la macro en question ne rétablit rien. Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus, etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
Next End sub
Merci Caroline
LSteph
Cela sert plus précisément juste pour ouvrir ou activer le fichier et pouvoir le modifier en désactivant les procèdure évennementielles. Pour les réactiver :
application.enableevents=true
C'est utile aussi lorsque dans un événnement on effectue une action qui pourrait se redéclancher et ainsi boucler involontairement. on désactive on agit on réactive
lSteph
"Caroline L." a écrit dans le message de news: cAh4e.27201$
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus, etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
Next End sub
Merci Caroline
Cela sert plus précisément
juste pour ouvrir ou activer le fichier et pouvoir le modifier
en désactivant les procèdure évennementielles.
Pour les réactiver :
application.enableevents=true
C'est utile aussi lorsque dans un événnement on effectue une action qui
pourrait se redéclancher et ainsi boucler involontairement.
on désactive
on agit
on réactive
lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
cAh4e.27201$g_5.680240@wagner.videotron.net...
Oui, bonne idée, c'est vrai que je peux me faire jouer.
c'est une macro a placé dans un autre classeur ? et je nomme
"celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le
reste, c'est ça ?
ta macro sert à tout rétablir (le clic droit souris, réactiver les menus,
etc.) C'est bien ça ?
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OIxQbHVOFHA.3444@tk2msftngp13.phx.gbl...
Re,
juste qd même si tu te coinces à ton propre piège:
dans le perso.xls!
sub okaou()
application.enableeventsúlse
Workbooks.open("celuideCaroline.xls")
end sub
'lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
JRg4e.25646$g_5.660757@wagner.videotron.net...
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic
droit
de souris... et le projet VBA est protégé.
Ca va de mieux en mieux mon apprentissage !
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425195c1$0$1239$8fcfb975@news.wanadoo.fr...
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans
Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour
l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante
pour
enlever
l'affichage de la barre de formule:
Private Sub Workbook_Activate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = False
Next
End sub
Private Sub Workbook_Deactivate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = True
Cela sert plus précisément juste pour ouvrir ou activer le fichier et pouvoir le modifier en désactivant les procèdure évennementielles. Pour les réactiver :
application.enableevents=true
C'est utile aussi lorsque dans un événnement on effectue une action qui pourrait se redéclancher et ainsi boucler involontairement. on désactive on agit on réactive
lSteph
"Caroline L." a écrit dans le message de news: cAh4e.27201$
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus, etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
Next End sub
Merci Caroline
Caroline L.
Oui,
je n'ai pas fait le test... je gardais la macro de côté en cas de besoin. C'est vrai que je peux désactiver les macros...
merci anonymousA
Caroline
"anonymousA" a écrit dans le message de news: 4251a8c2$0$1239$
re,
m'excuse de m'immiscer mais la macro en question ne rétablit rien. Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus,
etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
Next End sub
Merci Caroline
Oui,
je n'ai pas fait le test... je gardais la macro de côté en cas de besoin.
C'est vrai que je peux désactiver les macros...
merci anonymousA
Caroline
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4251a8c2$0$1239$8fcfb975@news.wanadoo.fr...
re,
m'excuse de m'immiscer mais la macro en question ne rétablit rien.
Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta
macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela
sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer.
c'est une macro a placé dans un autre classeur ? et je nomme
"celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le
reste, c'est ça ?
ta macro sert à tout rétablir (le clic droit souris, réactiver les
menus,
etc.) C'est bien ça ?
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OIxQbHVOFHA.3444@tk2msftngp13.phx.gbl...
Re,
juste qd même si tu te coinces à ton propre piège:
dans le perso.xls!
sub okaou()
application.enableeventsúlse
Workbooks.open("celuideCaroline.xls")
end sub
'lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
JRg4e.25646$g_5.660757@wagner.videotron.net...
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic
droit
de souris... et le projet VBA est protégé.
Ca va de mieux en mieux mon apprentissage !
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425195c1$0$1239$8fcfb975@news.wanadoo.fr...
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans
Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour
l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour
enlever
l'affichage de la barre de formule:
Private Sub Workbook_Activate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = False
Next
End sub
Private Sub Workbook_Deactivate()
Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count
CollControls(I).Enabled = True
je n'ai pas fait le test... je gardais la macro de côté en cas de besoin. C'est vrai que je peux désactiver les macros...
merci anonymousA
Caroline
"anonymousA" a écrit dans le message de news: 4251a8c2$0$1239$
re,
m'excuse de m'immiscer mais la macro en question ne rétablit rien. Permet juste que tu puisses ouvir ton fichier sans que se déclenche ta macro d'ouverture qui invalide les menus. Ceci dit, pour empêcher cela sans la macro en question, il suffit de ne pas activer les macros.
A+
Oui, bonne idée, c'est vrai que je peux me faire jouer. c'est une macro a placé dans un autre classeur ? et je nomme "celuideCaroline" le nom du classeur où j'ai enlevé tous les menus et le reste, c'est ça ? ta macro sert à tout rétablir (le clic droit souris, réactiver les menus,
etc.) C'est bien ça ?
"LSteph" a écrit dans le message de news:
Re, juste qd même si tu te coinces à ton propre piège: dans le perso.xls!
sub okaou() application.enableeventsúlse Workbooks.open("celuideCaroline.xls") end sub
'lSteph
"Caroline L." a écrit dans le message de news: JRg4e.25646$
J'ai pensé à tout... tous les menus sont désactivés ainsi que le clic droit de souris... et le projet VBA est protégé. Ca va de mieux en mieux mon apprentissage !
"anonymousA" a écrit dans le message de news: 425195c1$0$1239$
De toute façon, invalider le controle ID 849 est insuffisant, car
encore
possible d'aller sous Outils/Options pour retablir ou d'aller dans Personnalisé du menu Affichage.
A+
bonsoir,
la barre de formule c'est application.displayformulabarúlse pour l'enlever.
A+
Bonjour,
Pouvez-vous me dire ce qui ne va pas avez la procédure suivante pour enlever l'affichage de la barre de formule:
Private Sub Workbook_Activate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = False
Next End sub
Private Sub Workbook_Deactivate() Set CollControls = Application.CommandBars.FindControls(ID:9)
For I = 1 To CollControls.Count CollControls(I).Enabled = True
