Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pouvoir copier mais pas couper

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zumye
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

zumye

XLDnaute Occasionnel
bonsoir

est il possible sur excel d'interdire ( ou message avertissement) de couper/coller une cellule sur un classeur mais autoriser le "copier".
Dans les historiques je n'ai trouvé que la possibilité interdire un couper/copier.

merci
 
Trier par date Trier par votes
Re : pouvoir copier mais pas couper

Bonsoir,
avec ces codes, à insérer dans un évènements de feuille ou de classeur :

Code: 
Sub InterdireCouper()
  On Error Resume Next
  With Application
    'interdire le raccourci Ctrl + X
    .OnKey "^x", ""
    'interdire le couper
    .CommandBars("Edit").FindControl(ID:=21).Enabled = False
    .CommandBars("Cell").FindControl(ID:=21).Enabled = False
    .CommandBars("Column").FindControl(ID:=21).Enabled = False
    .CommandBars("Row").FindControl(ID:=21).Enabled = False
    .CommandBars("Button").FindControl(ID:=21).Enabled = False
    .CommandBars("Formula Bar").FindControl(ID:=21).Enabled = False
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = False
    .CommandBars("Standard").FindControl(ID:=21).Enabled = False
  End With
End Sub

Sub RetablirCouper()
  On Error Resume Next
  With Application
    ' rétablir le raccourci Ctrl + X
    .OnKey "^x"
   ' Rétablir le couper
    .CommandBars("Edit").FindControl(ID:=21).Enabled = True
    .CommandBars("Cell").FindControl(ID:=21).Enabled = True
    .CommandBars("Column").FindControl(ID:=21).Enabled = True
    .CommandBars("Row").FindControl(ID:=21).Enabled = True
    .CommandBars("Button").FindControl(ID:=21).Enabled = True
    .CommandBars("Formula Bar").FindControl(ID:=21).Enabled = True
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = True
    .CommandBars("Standard").FindControl(ID:=21).Enabled = True
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
924
TooFatBoy
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
E
  • Question Question
XL 2019 gestion du presse papier
3 4 5
Réponses
66
Affichages
2 K
patricktoulon
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
470
akm
A
M
  • Résolu(e)
XL 2016 VBA-couper/coller une plage filtrée
Réponses
7
Affichages
560
matamata
M
M
  • Question Question
XL pour MAC Liaison Excel vers Word
Réponses
1
Affichages
248
wDog66
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
526
Al1_44
A
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
350
fenec
S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
532
sergio_bzh
S
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
166
agnesd
A
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
191
matlatarte
M
  • Résolu(e)
XL 2021 Copier une plage de données d'après un critère en VBA
2
Réponses
26
Affichages
816
oguruma
  • Question Question
Microsoft 365 Déplacer cellules en gardant mise en forme source et cible (via VBA)
2 3
Réponses
34
Affichages
2 K
TooFatBoy
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
410
xavieralvaro
X
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
403
AtTheOne
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
369
sylvanu
F
  • Question Question
XL 2016 tableaux xl
Réponses
12
Affichages
282
TooFatBoy
  • Question Question
Microsoft 365 Excel : problème de liaison avec un fichier source "Fichier dans un autre domaine"...
Réponses
2
Affichages
452
nightswan
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
195
eastwick
D
  • Question Question
XL 2021 Externaliser une base de données
Réponses
1
Affichages
145
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…