Bloquer "copier - coller"

Version imprimable

27/04/2009, 13h02
firecarl

Bloquer "copier - coller"

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
:?

Ca devrait faire ton bonheur..

Code:

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.

27/04/2009, 16h18
firecarl

Tester et approuver
merci l'ami de ton aide à charge de revanche (mais vu mon niveau je te promets rien lol)
:king:
27/04/2009, 16h28
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.
08/03/2017, 10h50
frankki

Toujours possible de copier/coller

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