Discussion :

[JohnSn]

Bonjour,

Pour empêcher le drag & drop à l'intérieur de mon classeur, j'utilise ce code dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Activate()
    Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_Deactivate()
  Application.CellDragAndDrop = True
End Sub

Cela empêche bien le drag and drop.
Je peux toujours faire un copier/coller à l'intérieur de mon fichier, mais un copier/coller d'un autre classeur vers le classeur "protégé" est impossible.

Comment faire pour désactiver le drag & drop dans mon classeur mais autoriser le copier/coller à partir d'un autre classeur ou d'un autre outil ?
J'ai pas mal cherché sur internet, sans succès
Pourriez-vous m'aider s'il vous plait ?

[shynen]

Bonjour JohnSn

Concernant le blocage de drag & drop => Il me semble que tu dois juste laisser le drag & drop = false

Concernant le cut/paste tu seras obligé d'enlever la protection de ton classeur si toutes ses feuilles sont protégés afin d'arriver à tes fins

Après je sais pas si le chemin de la copie est indiquable (français ???)

Je ne sais pas si cela t'a aidé , je ne suis encore qu'un débutant mais j'essaye d'aider du mieux que je peut

Cordialement

[JohnSn]

Après je sais pas si le chemin de la copie est indiquable (français ???)

Désolé mais je ne pense pas comprendre ta question ?

[shynen]

S'en était pas une , je me demandais juste si "indiquable" se disait dans la langue française ^^ aucun rapport ne t’inquiètes pas

[JohnSn]

En fait je n'arrive pas à trouver comment désactiver le couper et le glisser/déposer, tout en conservant le copier/coller.
Est-ce théoriquement possible ?

[JohnSn]

J'ai un peu avancé, mais je ne sais pas si je vais dans la bonne direction :

ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function OpenClipboard Lib "User32" _
(ByVal hwnd As Long) As Long
 
Private Declare Function CloseClipboard Lib "User32" () As Long
 
Private Sub Workbook_Activate()
OpenClipboard 0
Application.CellDragAndDrop = False
CloseClipboard
End Sub
 
Private Sub Workbook_Deactivate()
    Application.CellDragAndDrop = True
End Sub

Le copier/coller s'effectue bien comme ceci.

Est-ce que cela vous semble correct et fiable ?