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

جرب هذا الكود وهو نفس الكود في ملفك وبواسطة 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

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

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

وعليكم السلام هل تقصد هكذا فاتورة.xlsm

لثبيت البرنامج اتبع التالي الشرح خاص بالاوفيس 2010 اولا يجب التأكد من اصدار البرنامج يتوافق مع الاوفيس في جهازك بعد تحميل البرنامج افتح ملف الاكسل ثم ملف ثم خيارات ثم الوظائف الاظافية ثم انتقال ثم استعراض ثم اختار الملف الذي حملته ستجده بصيغة xla سيظهر الملف في القائمة ضع علامة صح امامة ثم موافق ثم تجد الملف في القائمة الرئيسة للاكسل تحت الوظائف هذا حسب علمي والله اعلم موقع ربما يفيدك http://www.wentoday.com/adding-megastat-in-microsoft-excel-2010-maybe-it-works-in-2007-as-well/

السلام عليكم بعد اذن اخونا الفاضل احمد بدره الحل بالكود (من اكواد عبدالله باقشير) تحياتي فك الخلية.xlsm

وعليكم السلام ورحمة الله وبركاته ملف ربما يتوافق مع طلبك التنبيه في حالة التكرار .xls تحياتي