كود عدم حذف الارقام من الخلايا

[محمد عبد الناصر]

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

عايز كود عدم مسح الخلايا الى فيها ارقام فى العمود F يعنى الخليه الى ادخل فيها رقم فى العمود F مينفعش امسحها تانى غير بامر منى انا 

[سليم حاصبيا]

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With ActiveSheet
        .Unprotect Password:="Salim"
        .Cells.Locked = False
      If Target.Column = 6 And IsNumeric(Target) Then

    
            Target.Locked = True
            ActiveSheet.Protect Password:="Salim"
            Application.EnableEvents = True
            Exit Sub
    
     End If
 End With
 Application.EnableEvents = True
End Sub

 

[محمد عبد الناصر]

43 دقائق مضت, سليم حاصبيا said:

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With ActiveSheet
        .Unprotect Password:="Salim"
        .Cells.Locked = False
      If Target.Column = 6 And IsNumeric(Target) Then

    
            Target.Locked = True
            ActiveSheet.Protect Password:="Salim"
            Application.EnableEvents = True
            Exit Sub
    
     End If
 End With
 Application.EnableEvents = True
End Sub

 

معلش انا اسف حضرتك يمكن انا مش عارف اوضح عايز الكود SUb ()

وعايز اقدر اغير فى الخليه زى م انا عايز بس مقدرش امسح بعد ما ادوس على الامر ده يعنى اغير زى م انا عايز فى الخليه بس مقدرش امسح الى مكتوب فيها 

تم تعديل مايو 9, 2016 بواسطه محمد عبد الناصر

[۩◊۩ أبو حنين ۩◊۩]

في ٩‏/٥‏/٢٠١٦ at 12:08, محمد عبد الناصر said:

معلش انا اسف حضرتك يمكن انا مش عارف اوضح عايز الكود SUb ()

وعايز اقدر اغير فى الخليه زى م انا عايز بس مقدرش امسح بعد ما ادوس على الامر ده يعنى اغير زى م انا عايز فى الخليه بس مقدرش امسح الى مكتوب فيها 

السلام عليكم

الاخ الفاضل ......المطلوب غير واضح

او بلاخرى فى تعارض ... اذى اغير فى الخليه ذى ما انا عايز ...........بس مقدرش امسح الى مكتوب فيها

طلب غير منطقى....... برجاء توضيح المطلوب

[ياسر خليل أبو البراء]

أخي الكريم محمد عبد الناصر

إذا كان ما فهمته صحيح ، فإليك الرابط التالي فيه شرح للمطلوب ، ولكن يجب أن تتبع الخطوات بشكل جيد وتزيل الحماية في البداية عن العمود بالكامل قبل وضع الكود في حدث ورقة العمل

الرابط من هنا

تقبل تحياتي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الفاضل ....ياسر خليل

كما تعودنا منك دائما ... ابهار وبهرات  تخلى الكود ابداع فعلا

ان الخليه تغلق نفسها اذا كان المدخل ارقام  

جزاك الله خير 

[ياسر خليل أبو البراء]

وعليكم السلام أخي العزيز أبو حنين

بارك الله فيك وجزاك الله كل خير ، ومشكور على كلماتك الطيبة

كله بفضل الله وحده ، فالحمد لله على كل نعمه وآلائه

تقبل وافر تقديري واحترامي

[محمد عبد الناصر]

استاذ ياسر ابو خليل بارك الله فيك كود رائع 
بس الى انا عايزو انى اقدر اغير بعد كده عادى فى الخليه الى فى العمود بس مقدرش اعمل مسح للخليه اقدر اكتب فيها عادى بس مقدرش امسح الى مكتوب فيها فى اى خليه فى العمود F 

[محمد عبد الناصر]

في ١‏/٨‏/١٤٣٧ هـ at 23:00, ياسر خليل أبو البراء said:

وعليكم السلام أخي العزيز أبو حنين

بارك الله فيك وجزاك الله كل خير ، ومشكور على كلماتك الطيبة

كله بفضل الله وحده ، فالحمد لله على كل نعمه وآلائه

تقبل وافر تقديري واحترامي

استاذى الفاضل / ياسر خليل 
الى انا عايزه انو ميقدرش يمسح الى اتكتب فى اى خليه فى العمود F وفنفس الوقت يقدر يكتب الى هو عايزه فيها بس مينفعش يمسح الى اتكتب فى الخليه يقدر يكتب 0 يكتب 1 زى ما هو عايز بس مينفعش يمحس الى اتكتب فيها

تم تعديل مايو 17, 2016 بواسطه محمد عبد الناصر

[ياسر خليل أبو البراء]

أخي الكريم محمد

جرب الملف التالي عله يفي بالغرض

الرابط من هنا

[محمد عبد الناصر]

؟

في ١٧‏/٥‏/٢٠١٦ at 20:48, ياسر خليل أبو البراء said:

أخي الكريم محمد

جرب الملف التالي عله يفي بالغرض

الرابط من هنا

بجد مش عارف اقول لحضرتك ايه على الكود الرائع ده ربنا يجعله فى ميزان حسناتك
اخر حاجه ممكن الكود ده لو فيه امر انقله فى اى شيت موجود لأن عندى حوالى 16 ملف اكسيل كل ملف اكسيل فيه تقريبا 60 شيت لو فى طريقه انقل بيها الكود ده فى اى شيت موجود وجزاك اله كل خير

[ياسر خليل أبو البراء]

يمكن وضع الكود في حدث المصنف مع إجراء بعض التعديلات عليه .. ولكن السؤال هل العمل سيكون على عمود الـ F فقط في أي ورقة عمل ضمن المصنف؟

[محمد عبد الناصر]

4 ساعات مضت, ياسر خليل أبو البراء said:

يمكن وضع الكود في حدث المصنف مع إجراء بعض التعديلات عليه .. ولكن السؤال هل العمل سيكون على عمود الـ F فقط في أي ورقة عمل ضمن المصنف؟

ايوه حضرتك فى اى عمود F فى ملف الاكسيل

[ياسر خليل أبو البراء]

إذاً ضع الكود في حدث المصنف مع تغيير سطر البداية إلى

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)