محمد الورفلي1

السلام عليكم يستاهل أكثر والله

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

هذا الصرح فرصة كبيرة لنتعلم منه وفي هذا المنتدي وجدت عجب العجاب من الاكواد فبارك الله في الاساتذة

شكراً استاذ هيثم كمال

السلام عليكم الاخ الفاضل قنديل الصياد بارك الله فيك علي الشرح الوافي

الاخ الفاضل قنديل الصياد نعم المرفق 2003 ولكن ياريت صورة توضحية بخطوات عمل ذالك او رابط فيديو لااوفيس 2003 او اين اجد قائمة تأمين الخلية

السلام عليكم ورحمة الله انتم رائعون جداً سؤال هل توجد هذه الميزه في اوفيس 2003 ام لا

السلام عليكم حميل جداً

السلام عليكم اكوادك ممتعة وجميلة بارك الله فيك

السلام عليكم جرب هذا المرفق لقد وجدت كود من فتر واستخدمته ممكن يكون ما تريد ترحيل بقائمة منسدلة.rar

السيلام عليكم بارك الله فيك استاذ محمد وشكراً وزادك الله من علمة (( وصحيح كما قال الاستاذ الكبير " دغيدي " انتظرو منه الكثير فشكرا لك ولهذا الصرح ولقد تعلمة من هذ الخطاء الفادح " "

للرفع

لقد فعلت ذالك في الاصدار 2003 واعتقد اني لم استطع ان اوصل الفكرة ساحاول توصيل المعلومة بشكل مفصل صورة رقم 1 هي المشكلة ارفقت لك صورة للملف الذي به نفس المشلكة صورة 2 صورة رقم 1 / صورة رقم 2/ 10.rar وهذا ملف به نفس المشلك اذ فتح معالك بدون ان يفقد البيانات الموجودة به فأ اذان انحلت المشكلة ومشكور علي تعبك معاي

السلام عليكم ورحمة الله الاخ الفاضل محمد ارجو منك طريفة الفتح بشرح الله يبارك فيك سؤال اخر هل يفقد الملف البيانات الموجودة فيه ام لا لن الملف الموجود لدي حجمه 77 ميجا وشكراً للمساعدة وان شاء الله في ميزان حسناتك

السلام عليكم الاخ الفاضل خزاعي لم اتواصل معا من يوم امس نظراً لانقطاع التيار لمد 10 ساعات اخي الفاضل واضح ان شاء الله لديك خبره بالاكواد ارفق مثال توضيحي بالمرفق حيث ستر كف لن يفتح معك ان كان لديك حل فبارك الله فيك افدني به لاهمية البيانات التي بالملف هذا ليس الملف الاصلي بل فعلت به كما فعلت بالملف الاصلي 1.rar

السلام عليكم ورحمة الله اخي الكريم عند فتح الملف كما وضحت لايعمل حتي علي الجهاز الذي تم نسخ الهارد علية فاصبح يظهر رسالة كما في الصورة

السلام عليكم اضف هذ الكود لاحد الملفات وهو كود ممتاز ولكن فا قلت خبرتي باكواد فقد ارتكبت اليوم خط جسيم وه .و ارت ان احذف رقم الهارد الموجود بالكود لاستخدامة علي جهاز اخر والخطاء الاكبر هو لم اضف هذة العلامة حتي تسمح للملف بالعمل بشكل عادي ::: ام الان الملف لايعمل حتي علي الجهاز نفسه ويوجد به هوالي 1200 اسم ارجو المساعدة بارك الله فيكم فا أنا في موقف لايحسد عليه من فقدان البيانات فا هل يوجد حل Private Sub Workbook_Open() ' تكتب مكان الرقم التالي الموجود في الاسفل ' "589CC486" ' رقم قرصك الصلب ' ثم تقوم بمسح العلامة ' أمام الكود التالي 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "589CC486" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub

السلام عليكم استاذ محمود شكراً علي التشجيع

السلام عليكم اداة حجمها 5.36 MB ولكن فعالة وجميلة وسريعة تقوم بأصلاح نظام جهازك http://www.arabs-up.com/VUuge3Dx

السلام عليكم الاخ صلاح على حسب فهمى اضفت كود ابجدة وتستطيع تغير الابجدة بحسب ما ترى مناسب من الاعمدة ترحيل 2.rar

شكراً لك استاذ زيزو

شكر لك يا استاذ زيزو

السلام عليكم ورحمة الله الفضل لله اولاً ومن ثم حضرتكم الاخ الفاضل محمود الشريف::::::: شكراً لمرورك وتشجيعك للمبتدئين دائما فبارك الله فيك الاخت الفاضلة :::::::::::::::::::::::: أم عبد الله بارك الله فيك علي التشيج فشرف لي ان يكون ضمن احدى اعمالك المميزة فأنتى السباقة دائماً في مساعدة الجميع الاخ الفاضل ::::::::::::::::::::::::::: محمد الريفي عيون هي الحلوه التي رات عملي رائع وشكراً لك علي التشجيع

السلام عليكم ورحمة الله مشاركة بسيطة مما تعلمته من هذا الصرح العظيم (( صفحة تصلح لواجهة برنامج )) واجهة صفحة.rar

السلام عليكم ورحمة الله 1/ اشكرك جداً وجعله الله في ميزان حسناتك 2/ الكود جميل وخفيف 3/ لم اكون اتوقع وجود هذا الكود سئوال خارج الموضوع هل من الممكن كل من لديه بعض الاكواد وامام لك كود شرح كما تفضلت في المشاركة الفائته مثلاً (( Set MyRange = Range("G:G") 'هذا السطر يكتب به العمود المراد ابجدته )) فسنكون شاكرين لكم 4/ اشكر علي تبسيط المعلومة وتوصيلها وسامحنى اذا الحيت عليك تعرف اخي الدراسة علي الابواب