pouvoir copier mais pas couper

[zumye]

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

 

[Cousinhub]

Re : pouvoir copier mais pas couper

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

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

 

[jeanpierre]

Re : pouvoir copier mais pas couper

Bonsoir zumye,

Dans les historique, on trouve ceci : https://www.excel-downloads.com/threads/interdire-couper-mais-autoriser-copier.91559/

Si tu ne retrouves pas tes fils, tu cliques sur ton pseudo et sur rechercher toutes les discussions ouvertes.

Merci.

Jean-Pierre

 

[zumye]

Re : pouvoir copier mais pas couper

merci pour le programme c'est excellent