Problèmes Copier-Coller

report · Message par **report** » 02 juillet 2014, 13:23

Si votre exécutable avec l'option inhibition Copier-Coller ce referme mal, vous ne pourrez plus utiliser le Copier-Coller sur tous vos fichiers Excel.

Ouvrez un nouveau classeur Excel et Coller ce code dans un nouveau Module :

Code : Tout sélectionner

  Sub RetablirCopierColler()
   
    On Error Resume Next
   
        With Application
            .OnKey "^c", ""
            .OnKey "^v", ""
            .OnKey "^x", ""
            .CommandBars("Edit").FindControl(ID:=19).Enabled = True
            .CommandBars("Edit").FindControl(ID:=848).Enabled = True
            .CommandBars("Cell").FindControl(ID:=19).Enabled = True
            .CommandBars("Column").FindControl(ID:=19).Enabled = True
            .CommandBars("Row").FindControl(ID:=19).Enabled = True
            .CommandBars("Button").FindControl(ID:=19).Enabled = True
            .CommandBars("Formula Bar").FindControl(ID:=19).Enabled = True
            .CommandBars("Worksheet Menu Bar").FindControl(ID:=19).Enabled = True
            .CommandBars("Standard").FindControl(ID:=19).Enabled = True
            .CommandBars("Button").FindControl(ID:=848).Enabled = True
            .CommandBars("Formula Bar").FindControl(ID:=848).Enabled = True
            .CommandBars("Worksheet Menu Bar").FindControl(ID:=848).Enabled = True
            .CommandBars("Standard").FindControl(ID:=848).Enabled = True
            .CommandBars("Ply").FindControl(ID:=848).Enabled = True
            .CommandBars("Edit").FindControl(ID:=21).Enabled = True
            .CommandBars("Cell").FindControl(ID:=21).Enabled = True
            .CommandBars("Column").FindControl(ID:=21).Enabled = True
            .CommandBars("Row").FindControl(ID:=21).Enabled = True
            .CommandBars("Button").FindControl(ID:=21).Enabled = True
            .CommandBars("Formula Bar").FindControl(ID:=21).Enabled = True
            .CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = True
            .CommandBars("Standard").FindControl(ID:=21).Enabled = True
            .CommandBars("Edit").FindControl(ID:=22).Enabled = True
            .CommandBars("Cell").FindControl(ID:=22).Enabled = True
            .CommandBars("Column").FindControl(ID:=22).Enabled = True
            .CommandBars("Row").FindControl(ID:=22).Enabled = True
            .CommandBars("Button").FindControl(ID:=22).Enabled = True
            .CommandBars("Formula Bar").FindControl(ID:=22).Enabled = True
            .CommandBars("Worksheet Menu Bar").FindControl(ID:=22).Enabled = True
            .CommandBars("Standard").FindControl(ID:=22).Enabled = True
            .CommandBars("Edit").FindControl(ID:=755).Enabled = True
            .CommandBars("Cell").FindControl(ID:=755).Enabled = True
            .CommandBars("Column").FindControl(ID:=755).Enabled = True
            .CommandBars("Row").FindControl(ID:=755).Enabled = True
            .CommandBars("Button").FindControl(ID:=755).Enabled = True
            .CommandBars("Formula Bar").FindControl(ID:=755).Enabled = True
            .CommandBars("Worksheet Menu Bar").FindControl(ID:=755).Enabled = True
            .CommandBars("Standard").FindControl(ID:=755).Enabled = True
        End With
   
   End Sub