Interdire couper-coller

[Kluski]

Bonjour,

Comment interdire le couper-coller sans interdire le copier-coller ?

Merci

 

[Spitnolan08]

Re : Interdire couper-coller

Bonjour,

Je pense qu'une petite recherche dans le forum t'aurais permis de trouver la solution puisqu'en jetant un oeil en bas de cette page elle ne dvrait pas être loin...

Cordialement

 

[Kluski]

Re : Interdire couper-coller

Bonjour,
Merci pour ta réponse, mais j'ai bien entendu chercher avant de poster. Les solutions proposées ne résout pas mon problème. Je veux uniquement éviter le couper-coller. Il y a une solution (application.CutCopymode= false) mais elle empêche également le copier-coller, ce que je ne veux pas.
Alors si quelqu'un à la solution, merci à lui ou elle.

 

[Staple1600]

Re : Interdire couper-coller

Bonjour le forum, (=SI(A1="Spitnolan08";"Monsieur";"")


Cela devrait te satisfaire:

Private Sub Workbook_Activate()
Dim oCtrl As Office.CommandBarControl
 
'Disable all Cut menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
    
'Disable all Copy menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
       
        Application.CellDragAndDrop = False

End Sub

Private Sub Workbook_Deactivate()
Dim oCtrl As Office.CommandBarControl
 
'Enable all Cut menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = True
     Next oCtrl
    
'Enable all Copy menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = True
     Next oCtrl
       
        Application.CellDragAndDrop = True

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub

voir source: |.|

 

[Kluski]

Re : Interdire couper-coller

Merci beaucoup,

Cela a répondu à mon besoin. J'ai juste laissé le "copy" à TRUE (car je veux autoriser le copier-coller) et mis le "cut" et le "draganddrop" à False.