Désactiver "Copier" du ruban en VBA

Bonjour,

Il est possible d'inhiber le "coller"; pourquoi veux-tu désactiver le "copier" ?

Daniel

Bonjour, 

Pour interdire de copier et de coller sur une autre feuille d'un autre classeur excel ou Word.

Cordialement

Xavier

Pour Excel seulement. A mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim UndoList As String
  UndoList = Application.CommandBars("Standard").Controls("&Annuler").List(1)
  If Left(UndoList, 6) = "Coller" Then
    Application.Undo
  End If
End Sub

(valable pour Excel français).

Daniel

Maintenant, on peut aussi inhiber les "collage spécial".

Daniel

Non, ça ne fonctionne pas. Dans ce cas, on n'arrive pas à récupérer la liste des commandes enregistrées. J'ai trouvé ceci sur internet :

1. Dans un module standard :

Sub ClearClipboard()
  Dim Sht As Worksheet
  Set Sht = ActiveSheet
  With Sht
   .Cells(.Cells.Rows.Count, .Cells.Columns.Count).Copy
  End With
  Application.CutCopyMode = False
End Sub

Dans ThisWorkbook :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ClearClipboard
End Sub

On a bien sûr intérêt à limiter aux seules feuilles nécessaires.

Daniel

OK, est-il possible de coller le code dans le this workbook pour le classeur complet avec les collages spéciaux alors. avec les touches c et V + la souris ??