Discussion :

[MEUS21]

Bonjour,

on m'a conseillé sur ce forum pour désactiver la commande copier/coller d'excel d'ajouter ce code :

"

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

"

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

[Invité]

Bonjour,

Voir l'aide Microsoft pour Activate, Deactivate, événements.

Je pense qu'il faut mettre votre code dans la partie ThisWorkbook de votre fichier.

Sinon adapter votre code sur Activate Deactivate à chaque feuille de votre fichier.

Cordialement.