Discussion :

[firecarl]

Bonjour,
pourriez vous me dire s'il est possible de bloquer la fonction "copier-coller" pour un fichier excel sans que cela ne gène pour un autre fichier?
merci d'avance

[DeaD78]

Ca devrait faire ton bonheur..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Workbook_DeActivate()
 
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
 
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
 
     Application.CellDragAndDrop = False
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

To copies-colles ça dans le ThisWorkbook du fichier concerné et tu lances la macro et c'est fait.

[firecarl]

Tester et approuver
merci l'ami de ton aide à charge de revanche (mais vu mon niveau je te promets rien lol)

[DeaD78]

Mais de rien, c'est normal

Pour réactiver le tout, si jamais tu as besoin, tu passes tout à True dans les procédures.

Bonne chance pour la suite.

[frankki]

Bonjour
La fonction est bien pour empêcher de copier une cellule en se positionnant dessus, mais il est toujours possible de la copier en allant dans la "barre de formule"....Même si on ne peut pas copier une plage, on peut copier/coller par cellule, c'est dommage.
Cdlt