problème copier/coller sur excel et word
Bonjour,
on m'a conseillé sur ce forum pour désactiver la commande copier/coller d'excel d'ajouter ce code :
"
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 |
"
C'est parfait sauf que je pensais que ca allait toucher juste mon fichier mais non !! c'est sur tous les classeurs et également sur word. Comment retrouver la fonction copier/coller sur tous mes fichiers ??? Par contre si vous connaissez un code pour juste un fichier excel je suis preneur.
Merci d'avance
