Fonction glissement-déplacement

[Aerosmith]

Bonjour à tous,

Voici ma question, je sais que la fonction glissement-déplacement peut être bloquée dans Excel en allant dans le menu Outils/Options et en décochant le paramètre, cependant en faisant cette action la fonction est bloquée pour tous les fichiers, je voudrais savoir s'il existe un moyen de bloquer cette fonction pour un seul fichier ?

Cordialement, Aerosmith.

 

[Efgé]

Re : Fonction glissement-déplacement

Bonjour Aerosmith et bienvenu sur le forum,
Je pense qu'il faut passer par deux macros:

Private Sub Workbook_Open()
Application.CellDragAndDrop = False
End Sub

et

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = True
End Sub

Ces macros sont à mettre dans le ThisWorkbook (Alt+F11 ; double click sur le dossier ThisWorkbook; coller les codes)
Quand le classeur est ouvert le drag and drop est désactivé (pour tous les classeurs ouverts en même temps) a la fermeture le drag and drop est réactivé complétement.
Cordialement

 

[Aerosmith]

Re : Fonction glissement-déplacement

Merci pour votre réponse rapide !

Celà fonctionne très bien 🙂

 

[Aerosmith]

Re : Fonction glissement-déplacement

Bonjour,

Suite à l'installation indiquée précédemment qui supprime la fonction glisser-déplacer je me suis rendu compte que les fonctions "coller" et "collage spécial" étaient grisées sur une des feuilles de mon fichier, si je passe par le presse papier office j'arrive quand même à faire des collages, dans les options le paramètre afficher les boutons d'options de collage est coché ; quelqu'un saurait-il pourquoi et comment faire réapparaître ses fonctions ?
Merci d'avance.

 

[Efgé]

Re : Fonction glissement-déplacement

Bonjour Aerosmith,
Je ne rencontre pas ce problème avec les codes donnés. Cela vient peut être d'une autre macro? Le mieux serait de poster votre exemple pour que quelqu'un puisse regarder.
Si non j'ai une autre proposition pour n'interdire le Drag and Drop que sur le fichier actif (remplacer ma première proposition par celle ci, toujours dans le ThisWorkbook):

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CellDragAndDrop = False
End Sub

et

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
End Sub

Cordialement

EDIT Peut être la feuille est elle protégée?

 

[Aerosmith]

Re : Fonction glissement-déplacement

Bonjour,

J'ai oté les protections et changé le code mais rien n'y fait 😕

Le truc c'est que celà n'arrive que sur ce fichier et encore pas sur toutes les feuilles !

Je joins le fichier en espérant que vous trouverez 😉
Cordialement.