Problèmes Copier-Coller
Posté : 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 :
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