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
anonymousA
Bonjour,
s'il ne s'agit que de désactiver ces fonctions et uniquement dans les menus Edition ( et d'ailleurs aussi dans le menu Popup des cellules) et si Excel est en Français , une idée parmi d'autres. Il existe bien d'autres manières, tu t'en doutes . Pour activer mettre True, pour desactiver False.
Sub desactive()
With Application controle .CommandBars("Worksheet Menu Bar"), True, .CommandBars("Worksheet Menu Bar").Controls("&Edition") controle .CommandBars("cell"), True End With
End Sub
Sub controle(cb As CommandBar, bool As Boolean, Optional cbctrl As CommandBarControl)
If cbctrl Is Nothing Then With cb .Controls("Co&pier").Enabled = bool .Controls("C&oller").Enabled = bool .Controls("Colla&ge spécial...").Enabled = bool End With Else With cbctrl .Controls("Co&pier").Enabled = bool .Controls("C&oller").Enabled = bool .Controls("Colla&ge spécial...").Enabled = bool End With End If
End Sub
Par ailleurs, il faudrait aussi surement désactiver le coupier-coller par les raccourcis ce qui implique d'utiliser la méthode ONKey. Enfin, ces modifications ayant lieu dans l'environnement globla d'Excel, il faut aussi prévoir lorsqu'on chnage de feuille ou de classeur de les invalider puis de les revalider quand on revient sur la feuille ou le classuer en question. Bref, tu vois rinie n'est vraiment si simple. Si tu veux connaitre tous les N°s d'ID des controles ce qui reste toujours la meilleure méthode pour être sur d'assurer le portage sur les différents contextes d'Excel , je te conseille d'aller sur le site de Frédéreic Sigonneau où des programmes de cette nature existent.
A+
Bonsoir le forum
Pourriez-vous m'indiquer comment faire pour désactiver dans le menu édition les actions de "couper, copier, coller, collage spécial"
merci
cordialement
Eric
Bonjour,
s'il ne s'agit que de désactiver ces fonctions et uniquement dans les
menus Edition ( et d'ailleurs aussi dans le menu Popup des cellules) et
si Excel est en Français , une idée parmi d'autres.
Il existe bien d'autres manières, tu t'en doutes .
Pour activer mettre True, pour desactiver False.
Sub desactive()
With Application
controle .CommandBars("Worksheet Menu Bar"), True,
.CommandBars("Worksheet Menu Bar").Controls("&Edition")
controle .CommandBars("cell"), True
End With
End Sub
Sub controle(cb As CommandBar, bool As Boolean, Optional cbctrl As
CommandBarControl)
If cbctrl Is Nothing Then
With cb
.Controls("Co&pier").Enabled = bool
.Controls("C&oller").Enabled = bool
.Controls("Colla&ge spécial...").Enabled = bool
End With
Else
With cbctrl
.Controls("Co&pier").Enabled = bool
.Controls("C&oller").Enabled = bool
.Controls("Colla&ge spécial...").Enabled = bool
End With
End If
End Sub
Par ailleurs, il faudrait aussi surement désactiver le coupier-coller
par les raccourcis ce qui implique d'utiliser la méthode ONKey.
Enfin, ces modifications ayant lieu dans l'environnement globla d'Excel,
il faut aussi prévoir lorsqu'on chnage de feuille ou de classeur de les
invalider puis de les revalider quand on revient sur la feuille ou le
classuer en question. Bref, tu vois rinie n'est vraiment si simple.
Si tu veux connaitre tous les N°s d'ID des controles ce qui reste
toujours la meilleure méthode pour être sur d'assurer le portage sur les
différents contextes d'Excel , je te conseille d'aller sur le site de
Frédéreic Sigonneau où des programmes de cette nature existent.
A+
Bonsoir le forum
Pourriez-vous m'indiquer comment faire pour désactiver dans le menu
édition les actions de "couper, copier, coller, collage spécial"
s'il ne s'agit que de désactiver ces fonctions et uniquement dans les menus Edition ( et d'ailleurs aussi dans le menu Popup des cellules) et si Excel est en Français , une idée parmi d'autres. Il existe bien d'autres manières, tu t'en doutes . Pour activer mettre True, pour desactiver False.
Sub desactive()
With Application controle .CommandBars("Worksheet Menu Bar"), True, .CommandBars("Worksheet Menu Bar").Controls("&Edition") controle .CommandBars("cell"), True End With
End Sub
Sub controle(cb As CommandBar, bool As Boolean, Optional cbctrl As CommandBarControl)
If cbctrl Is Nothing Then With cb .Controls("Co&pier").Enabled = bool .Controls("C&oller").Enabled = bool .Controls("Colla&ge spécial...").Enabled = bool End With Else With cbctrl .Controls("Co&pier").Enabled = bool .Controls("C&oller").Enabled = bool .Controls("Colla&ge spécial...").Enabled = bool End With End If
End Sub
Par ailleurs, il faudrait aussi surement désactiver le coupier-coller par les raccourcis ce qui implique d'utiliser la méthode ONKey. Enfin, ces modifications ayant lieu dans l'environnement globla d'Excel, il faut aussi prévoir lorsqu'on chnage de feuille ou de classeur de les invalider puis de les revalider quand on revient sur la feuille ou le classuer en question. Bref, tu vois rinie n'est vraiment si simple. Si tu veux connaitre tous les N°s d'ID des controles ce qui reste toujours la meilleure méthode pour être sur d'assurer le portage sur les différents contextes d'Excel , je te conseille d'aller sur le site de Frédéreic Sigonneau où des programmes de cette nature existent.
A+
Bonsoir le forum
Pourriez-vous m'indiquer comment faire pour désactiver dans le menu édition les actions de "couper, copier, coller, collage spécial"
merci
cordialement
Eric
Excel...lent
Salut Eric,
Effectivement comme te le dit AnonymousA il te faudra aussi neutraliser les trois raccourcis clavier avec la fonction OnKey :
Copier = Ctrl + C Couper = Ctrl + X Coller = Ctrl + V
Comment ? En rajoutant ces trois lignes à ton code, cela interdira la possibilité d'utiliser les raccourcis ci-dessus.
