elsedik قام بنشر فبراير 27, 2011 مشاركة قام بنشر فبراير 27, 2011 المطلوب حماية الخلية عن طريق الاكواد بعد ادخال القيمة ليس قبله وهل يوجد هناك اولوية فى تنفيذ الاكواد فى vb الملف المرفق فيه المطلوب حماية.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 28, 2011 مشاركة قام بنشر فبراير 28, 2011 السلام عليكم أضف السطر التالي 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 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر فبراير 28, 2011 مشاركة قام بنشر فبراير 28, 2011 و بعد الإدخال نضع Selection.Locked = True رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر فبراير 28, 2011 مشاركة قام بنشر فبراير 28, 2011 السلام عليكم و رحمة الله اخي صديق جرب 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.