Copier Coller interdit par macro

[VADORBLANC]

Bonjour
Je recherche un code qui empèche l'utilisateur de copier coller dans la feuille active.
Merci pour votre aide

 

[Roland_M]

Re : Copier Coller interdit par macro

bonour,

j'ai trouvé ceci (mais j'ai pas essayé)

Private Sub Workbook_Open() 
'Interdit le tirage des formules dans les 4 directions et le glisser déplacer 
Application.CellDragAndDrop = False 
End Sub 
  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
'Interdit le collage sur la même feuille que celle qui a servi à faire la copie 
Application.CutCopyMode = False 
End Sub 
  
Private Sub Workbook_Activate() 
'Interdit le collage suite à une copie venant d'un autre classeur 
Application.CutCopyMode = False 
End Sub 
  
Private Sub Workbook_SheetActivate () 
'Interdit le collage suite à une copie venant d'une autre feuille du même classeur 
Application.CutCopyMode = False 
End Sub 
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
'Active le tirage des formules dans les 4 directions et 
'la technique du glisser-déplacer pour les cellules. 
Application.CellDragAndDrop = True 
  
'Active la possibilité de collage 
Application.CutCopyMode = True 
End Sub

 

[VADORBLANC]

Re : Copier Coller interdit par macro

Super,
J'ai supprimé 2 fonctions, et ça marche très bien.
Un grand MERCI 😉