منع الكتابة في الخلايا التي تم ادخال بيانات بها

[أبو عبد الله _]

وجدت في المنتدى هذا الموضوع الشيق 

https://www.officena.net/ib/topic/45168-منع-التعديل-فى-اى-خلية-بها-بيانات/

وسؤالي هل يمكن حماية الخلايا التي تحتوي على أي بيان أو معادلة بحيث يسمح للمستخدم الكتابة فقط في الخلايا الفارغة ولا يتم التعديل في البيانات إلا اذا تم فك الحماية  ..ملف يحتوي على بيانات أرغب أنت تكون الخلايا التي بها البيانات محميمة من اي تعديل تكون الكتابة فقط في الخلايا الفارغة ... وبمجرد الكتابة في إحدى الخلايا الفارغة يتم حمايتها  ولا يسمح بالتعديل في الخلايا التي تحتوي على بيانات الا بعد فك الحماية

مثال.xlsx

[lionheart]

In worksheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Unprotect
    If Target.Cells(1).Value = Empty Then Exit Sub
    Me.Protect
End Sub

 

[alihgrvdad123]

السلام عليكم

ممكن اضافة على الكود عند القيام بالتعديل أو التغيير في القيمة إلا من خلال كلمة سر

[عبدالفتاح في بي اكسيل]

بعد 5  ايام  يتم  الرد  

كلمة السر  myPass

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.Unprotect Password:="myPass"
With Target
    .Cells.Locked = True
    On Error Resume Next
    .Cells.SpecialCells(xlCellTypeBlanks).Locked = False
    On Error GoTo 0
End With
Sheet1.Protect Password:="myPass"
End Sub

 

1مثال.xlsm

[alihgrvdad123]

تمام 

100 %

مشكور

[أبو عبد الله _]

مشكور على مجهودك

ممتاز

هذا هو المطلوب اثباته 😊