إمكانية الكتابة في خلية مع منع قَص أو نقل الخلية من مكانها أو نقل محتوياتها بالسحب و الإفلات

[Hamdi Edlbi-khalf]

السلام عليكم 

هل من طريقة لمنع إمكانية قَص الخلايا أو نقل محتوياتها بالسحب و الإفلات و بنفس الوقت يمكن التسجيل في هذه الخلية و ذلك ضمن نطاق نحدده ؟

و شكراً لكم

 

[احمد بدره]

ممكن تجرب هذه الطريقة

نفترض ان هناك خلايا بها بيانات

أولاً قم بعمل حماية لورقة العمل أو كل أوراق العمل

اذهب إلى محرر الأكواد بالضغط على مفتاح Alt+F11

قم بإدراج موديول  والصق هذان الكودان فيه

Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
On Error Resume Next
With Application
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
  .EnableEvents = False
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False
If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True
With Sh.Cells
  .SpecialCells(2).Locked = True
  .SpecialCells(-4123).Locked = True
End With
If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123"
Next
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
  .ScreenUpdating = True
End With
End Sub
Private Sub Ch_P()
Dim Sn As Worksheet
For Each Sn In ThisWorkbook.Worksheets
If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

بعد كتابة ما تريده قم بتشغيل الماكرو Ali_Prodc  

بذلك تكون ورقة العمل أو المصنف بالكامل ( أي خلية بها بيانات ) محمية مع إمكانية الكتابة في الخلايا الأخرى

وللتعديل على أي خلية بها بيانات قم بعمل إلغاء حماية

[Hamdi Edlbi-khalf]

السلام عليكم 

شكراً جزيلاً على مشاركتك و التي سأطبقها حتماً و يبدو أن السؤال قد جاءني بمعلومة قيمة جديدة .

 

لكن المشكلة التي دعتني لهذا السؤال :

أن لدي ورقة فيها خلايا مؤمنة  و أخرى غير  مؤمنة .

في الخلايا المؤمنة هناك معادلات تعتمد على تلك الغير مؤمنة .

و عند نقل هذه الخلايا الغير مؤمنة عن طريق الخطأ يظهر خطأ في المؤمنة

Reference 

لذلك أبحث عن طريقة لمنع نقل محتويات الخلية  إن أمكن .

 

تم تعديل يونيو 7, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

شكراً لكم لقد توصلت إلى ما يمكن أن يكون الحل .

و لكن يحتاج إلى تجريب