le + simple reste de très loin de protéger la feuille mais ça présente aussi l'inconvénient d'invalider aussi d'autres fonctions. Ceci dit, ça ne présente pas forcément d'inconvénient pour toi. Autrement, il faut en passer par des instructions d'invalidation des commandes Cut elles-mêmes ( par les BO de commandes et les raccourcis ) + gérer la revalidation de ces commandes quand on quitte la feuille ou le classeur et l'invalidation quand on y revient. Bref, c'est faisable mais pas toujours si simple à gérer.
A+
bonjour tous le monde, Est ce que il ya une possibilité de désactivé la fonction couper de ma feuille de calcul Excel Merci cordialement.
Bonjour,
le + simple reste de très loin de protéger la feuille mais ça présente
aussi l'inconvénient d'invalider aussi d'autres fonctions. Ceci dit, ça
ne présente pas forcément d'inconvénient pour toi.
Autrement, il faut en passer par des instructions d'invalidation des
commandes Cut elles-mêmes ( par les BO de commandes et les raccourcis )
+ gérer la revalidation de ces commandes quand on quitte la feuille ou
le classeur et l'invalidation quand on y revient.
Bref, c'est faisable mais pas toujours si simple à gérer.
A+
bonjour tous le monde,
Est ce que il ya une possibilité de désactivé la fonction couper de ma
feuille de calcul Excel
Merci
cordialement.
le + simple reste de très loin de protéger la feuille mais ça présente aussi l'inconvénient d'invalider aussi d'autres fonctions. Ceci dit, ça ne présente pas forcément d'inconvénient pour toi. Autrement, il faut en passer par des instructions d'invalidation des commandes Cut elles-mêmes ( par les BO de commandes et les raccourcis ) + gérer la revalidation de ces commandes quand on quitte la feuille ou le classeur et l'invalidation quand on y revient. Bref, c'est faisable mais pas toujours si simple à gérer.
A+
bonjour tous le monde, Est ce que il ya une possibilité de désactivé la fonction couper de ma feuille de calcul Excel Merci cordialement.
JB
On 4 fév, 18:32, wrote:
bonjour tous le monde, Est ce que il ya une possibilité de désactivé la fonction couper de ma feuille de calcul Excel Merci cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub auto_close() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.CommandBars("cell").Reset End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate() de la feuille.
JB
On 4 fév, 18:32, ezzaouin...@yahoo.fr wrote:
bonjour tous le monde,
Est ce que il ya une possibilité de désactivé la fonction couper de ma
feuille de calcul Excel
Merci
cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled =
False
CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub auto_close()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True
Application.CommandBars("cell").Reset
End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate()
de la feuille.
bonjour tous le monde, Est ce que il ya une possibilité de désactivé la fonction couper de ma feuille de calcul Excel Merci cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub auto_close() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.CommandBars("cell").Reset End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate() de la feuille.
JB
jps
il reste encore, me semble-t-il, CTRL + X..... jps
"JB" a écrit dans le message de news:
On 4 fév, 18:32, wrote:
bonjour tous le monde, Est ce que il ya une possibilité de désactivé la fonction couper de ma feuille de calcul Excel Merci cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open() CommandBars(1).Controls("Edition").Controls("Couper").Enabled False CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub auto_close() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.CommandBars("cell").Reset End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate() de la feuille.
JB
il reste encore, me semble-t-il, CTRL + X.....
jps
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1170625963.303045.31770@a75g2000cwd.googlegroups.com...
On 4 fév, 18:32, ezzaouin...@yahoo.fr wrote:
bonjour tous le monde,
Est ce que il ya une possibilité de désactivé la fonction couper de ma
feuille de calcul Excel
Merci
cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled False
CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub auto_close()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True
Application.CommandBars("cell").Reset
End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate()
de la feuille.
On 4 fév, 23:45, "jps" <j...@wannadoodoo.fr> wrote:
il reste encore, me semble-t-il, CTRL + X.....
jps
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1170625963.303045.31...@a75g2000cwd.googlegroups.com...
On 4 fév, 18:32, ezzaouin...@yahoo.fr wrote:
bonjour tous le monde,
Est ce que il ya une possibilité de désactivé la fonction couper de ma
feuille de calcul Excel
Merci
cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled =
False
CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub auto_close()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True
Application.CommandBars("cell").Reset
End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate()
de la feuille.
ach......je file au piquet
pardon, JB, je suis mal (du verbe "être" et du verbe "suivre")
jps
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1170660225.680816.307090@l53g2000cwa.googlegroups.com...
On 4 fév, 23:45, "jps" <j...@wannadoodoo.fr> wrote:
il reste encore, me semble-t-il, CTRL + X.....
jps
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1170625963.303045.31...@a75g2000cwd.googlegroups.com...
On 4 fév, 18:32, ezzaouin...@yahoo.fr wrote:
bonjour tous le monde,
Est ce que il ya une possibilité de désactivé la fonction couper de ma
feuille de calcul Excel
Merci
cordialement.
Bonsoir,
Désactive pour toutes les feuilles du classeur (Dans un module):
Sub auto_open()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled > False
CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub auto_close()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True
Application.CommandBars("cell").Reset
End Sub
Pour une feuille, utiliser les événements Activate() et Deactivate()
de la feuille.
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
bonjour JB,
j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas
j'ai toujour la fonction couper activé.
cordialement
merci de votre aide
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
jps
bonjour ezzaouini essaie en ajoutant :
Application.
devant chaque CommandBars
jps
a écrit dans le message de news:
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
bonjour ezzaouini
essaie en ajoutant :
Application.
devant chaque CommandBars
jps
<ezzaouini_6@yahoo.fr> a écrit dans le message de news:
1170668464.923579.13270@q2g2000cwa.googlegroups.com...
bonjour JB,
j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas
j'ai toujour la fonction couper activé.
cordialement
merci de votre aide
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
JB
On 5 fév, 10:41, wrote:
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
Bonjour,
Exemple avec Excel 2002:http://cjoint.com/?cfljKbmYjv
JB
On 5 fév, 10:41, ezzaouin...@yahoo.fr wrote:
bonjour JB,
j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas
j'ai toujour la fonction couper activé.
cordialement
merci de votre aide
Bonjour,
Exemple avec Excel 2002:http://cjoint.com/?cfljKbmYjv
bonjour JB, j'ai essayé d'appliquer le macro sur ma feuille mais ca marche pas j'ai toujour la fonction couper activé. cordialement merci de votre aide
Bonjour,
Exemple avec Excel 2002:http://cjoint.com/?cfljKbmYjv
JB
ezzaouini_6
j'ai met appliquer et sa marche pas encore. j'ai coller le macro suivant dans mon module. Vous prouver le vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False Application.CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.Application.CommandBars("cell").Reset End Sub merci pour votre aide
j'ai met appliquer et sa marche pas encore.
j'ai coller le macro suivant dans mon module. Vous prouver le
vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled
=
False
Application.CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled
= True
Application.Application.CommandBars("cell").Reset
End Sub
merci pour votre aide
j'ai met appliquer et sa marche pas encore. j'ai coller le macro suivant dans mon module. Vous prouver le vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False Application.CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.Application.CommandBars("cell").Reset End Sub merci pour votre aide
JB
On 5 fév, 11:25, wrote:
j'ai met appliquer et sa marche pas encore. j'ai coller le macro suivant dans mon module. Vous prouver le vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False Application.CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.Application.CommandBars("cell").Reset End Sub merci pour votre aide Pas dans un module:
-Clic-Droit sur le nom de l'onglet -Visualiser le code -Edition/Coller
Private Sub Worksheet_Activate() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False CommandBars("cell").Controls("Couper").Enabled = False Application.OnKey "^{x}", "" End Sub
Private Sub Worksheet_Deactivate() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True CommandBars("cell").Controls("Couper").Enabled = True Application.OnKey "^{x}" End Sub
JB
On 5 fév, 11:25, ezzaouin...@yahoo.fr wrote:
j'ai met appliquer et sa marche pas encore.
j'ai coller le macro suivant dans mon module. Vous prouver le
vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled
=
False
Application.CommandBars("cell").Controls("Couper").Enabled = False
End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled
= True
Application.Application.CommandBars("cell").Reset
End Sub
merci pour votre aide
Pas dans un module:
-Clic-Droit sur le nom de l'onglet
-Visualiser le code
-Edition/Coller
Private Sub Worksheet_Activate()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled =
False
CommandBars("cell").Controls("Couper").Enabled = False
Application.OnKey "^{x}", ""
End Sub
Private Sub Worksheet_Deactivate()
CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True
CommandBars("cell").Controls("Couper").Enabled = True
Application.OnKey "^{x}"
End Sub
j'ai met appliquer et sa marche pas encore. j'ai coller le macro suivant dans mon module. Vous prouver le vérifier?
Sub désactiver()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False Application.CommandBars("cell").Controls("Couper").Enabled = False End Sub
Sub activer()
Application.CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True Application.Application.CommandBars("cell").Reset End Sub merci pour votre aide Pas dans un module:
-Clic-Droit sur le nom de l'onglet -Visualiser le code -Edition/Coller
Private Sub Worksheet_Activate() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = False CommandBars("cell").Controls("Couper").Enabled = False Application.OnKey "^{x}", "" End Sub
Private Sub Worksheet_Deactivate() CommandBars(1).Controls("Edition").Controls("Couper").Enabled = True CommandBars("cell").Controls("Couper").Enabled = True Application.OnKey "^{x}" End Sub
