تعطيل خاصية السحب والإفلات

[هشام جمال الدين]

كود اخفاء وتعطيل اداة السحب 

[Ali Mohamed Ali]

يتم ذلك بطريقتين أولهما :وبما انك لم تقم برفع ملف فسيتم الرد أيضاً بدون ملف

1. انقر قم بتقديم > الخيارات في Excel 2010/2013 ، أو انقر فوق زر المكتب > خيارات إكسيل في Excel 2007.

2. في خيارات إكسيل مربع الحوار، انقر فوق المتقدم من الجزء الأيمن ، وقم بإلغاء تحديد تفعيل مقبض التعبئة وسحب الخلية وإفلاتها الخيار تحت خيارات التحرير قسم في الجزء الأيسر ، انظر لقطة الشاشة

أو بهذا الكود

Sub Disable_Cell_Drag_Drop()
Application.CellDragAndDrop = False
End Sub

 

[هشام جمال الدين]

شكرا اخى الفاضل Ali Mohamed Ali وايضا تم التوصل لهذا الكود للاستفادة منه 

In the ThisWorkbook code sheet:

Private Sub Workbook_Open()
toggleDragAndDrop
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
toggleDragAndDrop xx:=False
End Sub
Private Sub toggleDragAndDrop(Optional xx As Boolean = True)
Static yy As Boolean, zz As Boolean
With Application
If xx Then
yy = .CellDragAndDrop
zz = .AlertBeforeOverwriting
.CellDragAndDrop = False
Else
.CellDragAndDrop = yy
.AlertBeforeOverwriting = zz
End If
End With
End Sub