Supprimer la fonction copier/coller dans excel


#1

Bonjour à tous

Je souhaite via une macro, supprimer la fonction copier/coller de la fonction excel.
j’ai réussi à supprimer cette fonction du clic droit via cette macro

Sub ToggleCutCopyAndPaste(Allow As Boolean)
'Activate/deactivate cut, copy, paste and pastespecial menu items
Call EnableMenuItem(21, Allow) ’ cut
Call EnableMenuItem(19, Allow) ’ copy
Call EnableMenuItem(22, Allow) ’ paste
Call EnableMenuItem(755, Allow) ’ pastespecial

 'Activate/deactivate drag and drop ability
Application.CellDragAndDrop = Allow 
 
 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
With Application 
    Select Case Allow 
    Case Is = False 
        .OnKey "^c", "CutCopyPasteDisabled" 
        .OnKey "^v", "CutCopyPasteDisabled" 
        .OnKey "^x", "CutCopyPasteDisabled" 
        .OnKey "+{DEL}", "CutCopyPasteDisabled" 
        .OnKey "^{INSERT}", "CutCopyPasteDisabled" 
    Case Is = True 
        .OnKey "^c" 
        .OnKey "^v" 
        .OnKey "^x" 
        .OnKey "+{DEL}" 
        .OnKey "^{INSERT}" 
    End Select 
End With 

End Sub

Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)
'Activate/Deactivate specific menu item
Dim cBar As CommandBar
Dim cBarCtrl As CommandBarControl
For Each cBar In Application.CommandBars
If cBar.Name <> “Clipboard” Then
Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled
End If
Next
End Sub

Sub CutCopyPasteDisabled()
'Inform user that the functions have been disabled
MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!"
End Sub

'*** In the ThisWorkbook Module ***

Private Sub Workbook_Activate()
Call ToggleCutCopyAndPaste(False)
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToggleCutCopyAndPaste(True)
End Sub

Private Sub Workbook_Deactivate()
Call ToggleCutCopyAndPaste(True)
End Sub

Private Sub Workbook_Open()
Call ToggleCutCopyAndPaste(False)
End Sub

Mais le copier coller apparait est et donc encore fonctionnel dans le ruban.

Quelqu’un pourrait m’aider.

Merci d’avance
Christophe


#2

Bonjour

Pour supprimer le Presse papier du ruban:

  • Se rendre dans les Options d’Excel (Fichier>Options)
  • Dans Personnaliser le ruban, sélectionner Presse-Papiers sous l’onglet Accueil, et cliquer sur Supprimer

Résultat:

Plus de presse papiers, copier/coller devient impossible.


#3

Merci beaucoup l’info est super, par contre si j’ai un petit malin qui la remet, sur un autre fichier d’excel, elle réapparait, et donc c’est mort, y a t-il une autre solution pour qu’elle ne réapparaisse plus ou un macro pour bloquer cette action dans le ruban;

Merci d’avance

Cordialement


#4

Autre possibilité: Verrouiller les cellules sensibles de ton fichier.
Elles ne pourront alors plus être sélectionnées, encore moins copiées


#5

Merci pour l’info. J’avais déjà essayé, mais cela est assez fastidieux car c’est un gros fichiers de statistiques et beaucoup de cellules à verrouiller et déverrouiller, surtout lorsque sur une ligne ou colonne, certaines sont verrouillées et pas d’autres.
Mais idée à retenir, Merci


#6

Pourquoi souhaites tu enlever le copier coller exactement ?


#7

J’ai fais plusieurs fichiers (des indicateurs pour la caserne, pour savoir quel boulot est fait…) et j’ai beaucoup de collègues qui sont des adeptes du copier/coller sur différents fichiers et du coup ils copies parfois des formules et les recopies dans d’autres fichiers, ou efface des listes (pour des listes déroulantes…) enfin si le copier/coller était masqué cela poserait moins de problème, à une génération de collègues.


#8

Hello

C’est bien pour cette raison que se te suggérais que verrouiller les cellules: Pas de modifications possibles, mais tu peux quand même lire les indicateurs.

Note que tu n’es pas obligé de verrouiller toute la feuille/tout le classeur, tu peux choisir les cellules qui sont verrouillées et le reste du classeur est toujours modifiable


#9

Bonjour DocteurExcel

Merci pour le conseil, je dois mal utliser le verrouillage alors, car je n’arrivais pas à tout protéger, et comme j’ai plusieurs formats de dates, y en a toujours un qui fait un copier/coller du mauvais format (entre autre)
Avec ton aide et l’aide de mdo100, j’ai pour le moment trouvé une solution qui me convient parfaitement.
Donc si j’ai bien compris je dois mettre une coche verte pour dire que le problème est solutionné?

Dans tous les cas Merci pour la création de ce forum, ou tout le monde est humble, et ça fait tellement plaisir à voir.
Longue vie à ton forum :wink::+1: