عبدالله بشير عبدالله

استاذنا الفاضل يبدو انك نسيت ارفاق الملف في انتظارة للتعلم والاستفاذة شكرا على ارفاق الملف

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

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

ولك اضعاف ما دعوت لي

السلام عليكم تم تحويل معادلة الاستاذ يوسف الى كود ويتعامل الى 1000صف .يمكنك الزيادة في الكود بدل 1000 الى الرقم الذي تريده لاننسي صاحب الكود من دعوة صالحة بان يجعلها في ميزان حسناته السيد الفاضل عبدالله باقشير جرب الملف _QTesT1.xlsm

جرب هذا الكود وهو نفس الكود في ملفك وبواسطة AND يمكن اضافة اكثر من جهاز Private Sub Workbook_Open() 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" 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 حماية برقم الهارد ديسك.xls وجدت الكود في ملفاتي ويعمل على خمسة اجهزة ويمكن زيادتها الى ما تشاء Private Sub Workbook_Open() 'Dim PC1$, PC2$, PC3$, PC4$, PC5$ 'PC1 = "74828D32" ' رقم الايدي للجهاز 1 'PC2 = "12BE1EE2" ' رقم الايدي للجهاز 2 'PC3 = "2D4F902" ' رقم الايدي للجهاز 3 'PC4 = "282B91B1" ' رقم الجهاز 4 'PC5 = "" ' رقم الايدي للجهاز 5 'With CreateObject("Scripting.FileSystemObject") 'If Hex(.Drives.Item("c:").SerialNumber) = PC1 Or Hex(.Drives.Item("c:").SerialNumber) = PC2 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC3 Or Hex(.Drives.Item("c:").SerialNumber) = PC4 _ 'Or Hex(.Drives.Item("c:").SerialNumber) = PC5 Then 'Else: MsgBox "نأسف هذا البرنامج مخصص لجهاز اخر " 'ThisWorkbook.Close SaveChanges = True 'End If 'End With End Sub

السلام عليكم الخطأ في رقم العمود بدل 116 اصبح117 المصنف1.xlsb

هدية مقبولة بارك الله فيك

حسب فهمي لطلبك جرب المرفق حسابات 12020.xlsm تحياتي

السلام عليكم تفضل اخي الفاضل test1.xlsx

السلام عليكم اتمنى ان تجد في الملف المرفق طلبك لا تغير اسم ملف الاسماء ولا اسم الشيت الكود للسيد مختار من اعضاء المنتدى المميزين _import _name.xlsm name.xlsx

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

ساجرب وارد عليك بارك الله فيك نعم هو المطلوب بالتمام والكمال شكرا لكرمك واهتمامك تحياتي للجميع

السلام عليكم ورحمة الله وبركاته فضلا لا امرا نأمل منكم معالجة الخلل في الدالة في التقرير مع العلم جربت الفاصلة غير المنقوطة لكمdb4.accdb وافر التقدير والاحترام db4.accdb

جزاك الله خيرا على الهدية

اخي الفاضل سبق حل هذا السؤال من الاستاذ بن عليه حاجي والاستاذ سليم حاصبيا https://www.officena.net/ib/topic/98022-فصل-المادة-عن-الشعبة-في-حقل-مستقل/ تحياتي

السلام عليكم تفضل اخي العزيز XLtoEXE.rar

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

جرب الملف تحياتي جدول1.xlsx

جرب الملف عسى ان يكون طلبك عمل كارنيه لكل طالب.rar

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

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

لقد اجابك السيد احمد بدره على سؤالك تم زيادة الاعمدة فورم ادخال و تعديل مرن مع الصور.rar

السلام عليكم يفضل فتح موضوع جديد حتى يلاقي الطلب الاهتمام من كل الاعضاء وخصوصا ان الطلب مكتوب امامه تمت الاجابة على كل حال حسب طلبك عن طريق الفورم حقيقة لا اعلم ولكن بطريقة اخرى وهي كتابة رقم 1 في العمود A للموظف المراد طباعته او الموظفين تم انقر الزر طباعة موظفين اذا لم يكن هذا الحل مناسب قم بفتح موضوع جديد مرفقا الملف والطلب وستجد من الخبراء ,والاعضاء كل اهتمام ان شاء الله تحياتى بيان الحالة.xlsm

وعليكم السلام محرر الاكواد مقفل بكلمة سر تحياتي