استاذ محمد
بعد السلام/تستطيع ذلك عبر وضع الكود في الصفحة وليس في General module
انما في الصفحة المعنية تحت هذا العنوان
(Private Sub Worksheet_SelectionChange(ByVal Target As Range
اكتب الكود هنا
End Sub
اخي جرب ان تستبدل السطر 11 بما يلي:
((Else Set RngDelete = Union(RngDelete, .Cells(i, "A").Offset(, -6).Resize(1, 9
لا تسمح السطر 11 بل ضع فاصلة امامة و اكتب السطر الجديد/
غيّر كل شي يختص بالعامود A الى العمود f
السلام عليكم اخواني في المنتدى
لمعرفة الخلايا التي تحتوي على معادلات لا حاجة الى
`+Ctrl بعد الآن
التنسيق الشرطي يقوم بذلك
( مقتبس من احد المواقع الأجنبية)
روائع شرط التنسيق.rar
السلام عليكم و رحمة الله و بركاته اخواني في المنتدى
اثراءً لموضوع ملك المعادلات الاستاذ جمال عبد السمع
هدية من انتاجي لتقسيم الاسم الرباعي الى اربع اسماء
مختارة عشوائيا واما الحساب فهو يدوي
مجرد ما تضغط F9 تتغيّر الاسماء لتؤلف لائحة أخرى
ارجو ان ينال اعجابكم
اسم الرباعي.rar
استاذ احمد /صباح الخير
لا أعلم اذا كنت تعرف هذه الطريقة اولا
تستطيع ان تحمي الملف ضد التغيير وذلك كما يلي:
بعد فتح الملف اضغط F12 >>> من مربع Tool في النافذة(جنب save) اختر
general options>>>>> pssword to modify تضع كلمة سر وتعيدها (اذا اردت تستطيع ان تجعله للفراءة فقط
بهذه الطريقة اذا حاول المستخدم ان يفعل اي تغيير فان الجهاز لايسمح له عند الحفظ الا اذا اختار له اسم جديد غير الاسم المحدد (يحفظ الاسم الجديد و يبقي الجهاز على الملف الأصلي كما هو)