Don't know if this will solve your problem, but it might give you a start
Put all of this code in the worksheet module for the sheet you want to control.
Right click the sheet tab and > View Code, paste the code in the resultant pane/window.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("F:F"))
If Not isect Is Nothing Then
Application.CellDragAndDrop = False
Else
Application.CellDragAndDrop = True
End If
End Sub
This should disable Drag & Drop in Column F, change that range to suit your needs
Hope this helps
Bookmarks