حماية الخلية بعد الادخال

[elsedik]

المطلوب حماية الخلية عن طريق الاكواد بعد ادخال القيمة ليس قبله

وهل يوجد هناك اولوية فى تنفيذ الاكواد فى vb

الملف المرفق فيه المطلوب

حماية.rar

[طارق محمود]

السلام عليكم

أضف السطر التالي

ActiveSheet.Protect Contents:=False

في أول كود الفورم ليصبح

Private Sub Bu1_Click()

ActiveSheet.Protect Contents:=False


Sheet1.Range("B5") = tx1.Value



Sheet1.Range("a1").Show

Unload Me


End Sub

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

و بعد الإدخال

نضع

Selection.Locked = True

[يحيى حسين]

السلام عليكم و رحمة الله

اخي صديق جرب

Private Sub Bu1_Click()

Dim LR As Long

ActiveSheet.Unprotect

LR = Sheets("sheet1").Range("b" & Rows.Count).End(xlUp).Row + 1

Sheets("sheet1").Range("b" & LR).Value = tx1.Value

Sheets("sheet1").Range("b" & LR).Locked = True

ActiveSheet.Protect

Unload Me

End Sub