Bonjour,

J'ai un classeur pour lequel je voudrais que les utilisateurs ne puissent pas utiliser le "CellDragAndDrop" afin de ne pas perturber la mise en forme de ses feuilles. Le code que j'utilise (cf. ci-après) est efficace. Le problème est qu'il affecte aussi les classeurs que j’utilise par ailleurs.

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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub
'----- à réactiver si besoin ------------------------------------------
'Private Sub Workbook_SheetActivate(ByVal sh As Object)
    'Application.CutCopyMode = True
    'Application.CellDragAndDrop = True
'End Sub
'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    'Application.CutCopyMode = True
    'Application.CellDragAndDrop = True
'End Sub
'-----------------------------------------------------------------------
Comment puis-je limiter les effets du code à ce seul classeur ? Ou, à défaut, comment puis-je utiliser le code "à réactiver si besoin" au moment de la fermeture du dit classeur ?

Je vous remercie par avance pour votre aide,
Cordialement,