Désactivation fonction coller

[TISSY]

Hello à tous...

je recherche un moyen de désactiver les fonctions 'COPIER' / 'COUPER' / 'COLLER'

Merci

 

[Eric C]

Bonsoir le forum
Bonsoir TISSY

Une macro provenant d'un site que je ne nommerai pas. L'auteur s'est donné du mal dons à ton tour de creuser pour la fonction 'Coller'

'Interdire et rétablir les commandes Copier et Couper dans Excel
'(un contributeur du forum anglophone a eu la patience de
'chercher toutes (?) les commandes dans les différents menus
'et barres d'outils d'Excel : Jay T. Emory)

Sub InterdireCopierCouper()
  On Error Resume Next
  With Application
    'disables shortcut keys
    .OnKey '^c', ''
    .OnKey '^v', ''
    .OnKey '^x', ''
    'Disables Copy
    .CommandBars('Edit').FindControl(ID:=19).Enabled = False
    .CommandBars('Edit').FindControl(ID:=848).Enabled = False
    .CommandBars('Cell').FindControl(ID:=19).Enabled = False
    .CommandBars('Column').FindControl(ID:=19).Enabled = False
    .CommandBars('Row').FindControl(ID:=19).Enabled = False
    .CommandBars('Button').FindControl(ID:=19).Enabled = False
    .CommandBars('Formula Bar').FindControl(ID:=19).Enabled = False
    .CommandBars('Worksheet Menu Bar').FindControl(ID:=19).Enabled = False
    .CommandBars('Standard').FindControl(ID:=19).Enabled = False
    .CommandBars('Button').FindControl(ID:=848).Enabled = False
    .CommandBars('Formula Bar').FindControl(ID:=848).Enabled = False
    .CommandBars('Worksheet Menu Bar').FindControl(ID:=848).Enabled = False
    .CommandBars('Standard').FindControl(ID:=848).Enabled = False
    .CommandBars('Ply').FindControl(ID:=848).Enabled = False
    'Disables Cut
    .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 RetablirCopierCouper()
  On Error Resume Next
  With Application
    .OnKey '^c'
    .OnKey '^v'
    .OnKey '^x'

    'Enables Copy
    .CommandBars('Edit').FindControl(ID:=19).Enabled = True
    .CommandBars('Edit').FindControl(ID:=848).Enabled = True
    .CommandBars('Cell').FindControl(ID:=19).Enabled = True
    .CommandBars('Column').FindControl(ID:=19).Enabled = True
    .CommandBars('Row').FindControl(ID:=19).Enabled = True
    .CommandBars('Button').FindControl(ID:=19).Enabled = True
    .CommandBars('Formula Bar').FindControl(ID:=19).Enabled = True
    .CommandBars('Worksheet Menu Bar').FindControl(ID:=19).Enabled = True
    .CommandBars('Standard').FindControl(ID:=19).Enabled = True
    .CommandBars('Button').FindControl(ID:=848).Enabled = True
    .CommandBars('Formula Bar').FindControl(ID:=848).Enabled = True
    .CommandBars('Worksheet Menu Bar').FindControl(ID:=848).Enabled = True
    .CommandBars('Standard').FindControl(ID:=848).Enabled = True
    .CommandBars('Ply').FindControl(ID:=848).Enabled = True
   ' Enables Cut
    .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

Bonne soirée à toutes & à tous

 

[Bernard_XLD]

Bonjour Tissy, EricC

une autre solution, a placer dans thisworkbook

Cordialement, A+

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub