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.
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 ?
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 '-----------------------------------------------------------------------
Je vous remercie par avance pour votre aide,
Cordialement,
Partager