نجوم المشاركات

http://www.mediafire.com/file/0qj374txlt23h63/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%AD%D8%B3%D8%A8%D8%A7%D8%AA%D9%8A_%D8%AC%D9%85%D9%8A%D9%84_%D8%AC%D8%AF%D8%A7%D9%8B.xls/file

السلام عليكم تم عمل المطلوب بكود بسيط في حدث الشيت "ورقة 1" ومعادلة بسيطة في الخلية C3 في شيت "ورقة 2"... بن علية حاجي Book100.xlsm

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

جرب هذا الماكرو Option Explicit Private Sub Worksheet_Activate() Application.EnableEvents = False Application.ScreenUpdating = False Me.Range("c3") = vbNullString Dim r, c Sheets("ورقة1").Activate r = ActiveCell.Row c = ActiveCell.Column If r > 2 And c = 1 Then Me.Range("c3") = Sheets("ورقة1").Cells(r, c) End If Me.Activate Application.EnableEvents = True Application.EnableEvents = True End Sub الملف مرفق Book100salim.xlsm

جميل ورائع بارك الله فيك وجزاك الله كل خير لقد تما رفع لبرنامج الأخ محمد يوسف على موقع المنتدى برنامج_حسباتي_جميل_جداً.xls

السلام عليكم جرب الملف المرفق لعل فيه ما تريد... وليس لي فكرة أخرى. بن علية حاجي EXCEL12 - 1.xlsx

اخي الفاضل استخدم استعلام الحقاق وذلك عن طريق عمل جدول مؤقت والحاق البيانات بالجدو ل الاساسي هذا حل من عدة حول كثير وهذا حل اخر في المرفق test_101.rar

شكراً لك أخي الكريم sandanet تم تغيير الرقم من ثلاثة أكواد بنجاح كود في المولد ( registration_key ) [q2] = [q1] * 3 كود في النموذج (frm) If Val(aa1) = Nz(DLookup("serial", "tblsn"), 0) / 3 Then كود في المديول ( Module2 ) ayna = aa1 * 3

السلام عليكم انت تطلب في الكود الذهاب الى اخر سجل ======== اذا ترغب في الذهاب الى اول سجل اكتب في نفس الكود بدل last ==== first او اذا رغبت بسجل جديد اكتب =====new بالتوفيق

ارجو من الإدارة تعديل المرفق count-sec.mdb الموجود في المشاركة الاولى ووضع مكانه المرفق المعدل الموجود في المشاركة السابقة

اخي الكريم اسم العميل والتاريخ هي فقط خاصة بصاحب البرنامج اي للتوضيح في حال كان لديك مجموعة مستخدمين فانك تستطيع اضافتهم كلاً باسمه ورقم التسجيل الخاص به وتاريخ التسجيل .. طبعاً تاريخ التسجيل يضاف تلقائياً وهو بالطبع ليس له علاقة في عمل البرنامج فقط لمعرفة متى تم توليد سيريال التفعيل للمستخدم البرنامج لم يتم تصميمه لكي يقرأ تاريخ الجهاز مع رقم المعالج فالحماية المتبعة هي كما اشرت إليها في الشرح هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ اي باختصار الحماية المتبعة هي عن طريق ادخال المستخدم رقمه السري الخاص به لغرض توليد سيريال للبرنامج فريد لان سيريال البرنامج مكون من الرقم السري للعميل + رقم المعالج المستخلص من اسم المعالج والذي لايتغير بعد الفورمات .. لكي تتضح لك الصورة قم بمراجعة الشرح الموجود في الرابط الرسالة التي ظهرت لك لاتظهر عندي .. لكني اعتقد ان هذه الرسالة لها علاقة بكود الـ update المستعمل .. سوف اقوم بالتعديل عليه ان شاء الله زر التهيئة يعمل على تهيئة البرنامج لعميل جديد يرغب في تجربته اي بمعنى انه يعيد المدة الزمنية لاستخدام البرنامج الى 0 كما يلغي مفتاح في الريجستري "كأنك تقوم بتشغيل البرنامج أول مرة".. الغرض من وضع هذا الزر هو عندما تريد اعطاء العميل برنامجك لتجربته فانت لاتريد تصفير المدة التجريبية يدوياً وانما عن طريق زر الامر تستطيع عمل ذلك.. طبعاً انت يجب عليك إزالته هذا الزر عندما تريد ارسال برنامجك للعميل وانا وضعته لكي تتم التجربة فقط "يمكنك تصفير المدة الزمنية في اي وقت تشاء وتفعيل البرنامج في وقت تشاء وما الى ذلك لمعرفة آلية عمل البرنامج" .. اكرر مرة اخرى "يجب عليك إزالة زر الامر هذا عندما تود ارسال برنامجك للعميل" اي تحذير تقصد؟؟ اذا كان قصدك على عدد ساعات المدة الزمنية المتبقية فانظر الى عدد الساعات وكما هو واضح من الصورة عندك 20 ساعة وهي القيمة الافتراضية التي وضعتها .. انت عندما تقوم بتفعيل البرنامج سيختفي هذا التحذير لان البرنامج مفعل ولن يحسب لك المدة الزمنية المتبقية اخي العزيز الفكرة كلها مشروحة هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ نعم اخي الرسالة الوحيدة التي ظهرت لك هي تلك الخاصة بالنسخ الى الحافظة او حفظ السجل او افلات التغييرات وهي لاتظهر لدي واعتقد ان تلك الرسالة لها علاقة بخصائص الاكسس نفسه لديك ارجو منك تجربة البرنامج على جهاز آخر للتأكد من ذلك الفترة التجريبية تستطيع تغييرها من جدول tbl حيث تم وضع قيمة افتراضية وهي 20 ساعة .. بامكانك تغييرها لأي عدد من الساعات السيريال يتم توليده كالتالي : عندما يرغب العميل في تفعيل البرنامج يضغط على تسجيل البرنامج وعندما يتم فتح نموذج التسجيل يقوم العميل بإدخال رقمه السري لكي يتم اخذه ودمجه مع رقم المعالج وتوليد سيريال خاص اسميناه رقم النسخة يقوم العميل بارسال هذا الرقم إليك فتضع الرقم في ملف التسجيل او الكراك تقوم بتسجيل اسم العميل ورقم النسخة الخاص به فيعطيك الكراك رقم التفعيل لهذا المستخدم فتقوم انت بارسال رقم التفعيل هذا للعميل وهو بدوره يقوم بادخاله في خانة رقم التسجيل كما اشرت فان البرنامج بالكامل ليس له علاقة بأي تاريخ .. وما هو موجود في ملف الكراك هو لمعرفة متى تم توليد رقم التفعيل للعميل فقط لاغير اخي الكريم اقرأ الشرح هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية/ وستفهم الفكرة ان شاء الله هل ظهرت لك نفس الرسالة التي تقول نسخ الى الحافظة او حفظ السجل او افلات التغييرات؟ لم اقم بتشفير الارقام في الجداول وذلك لكي تتضح الصورة للأخوة وهنالك ملف تم ارفاقه تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb يوضح كيفية استعمال التشفير في الجداول يمكنك استعماله لتشفير القيم في الجداول .. هنالك ملاحظة مهمة وهي ان رقم النسخة ورقم التفعيل حتى وان كانا غير مشفرين فلا مشكلة من ظهورهما على الاطلاق فلايمكن استخدامهما الا على نفس جهاز العميل المصرح له تم ارفاق مثال تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb هنالك جدولين فقط جدول خاص بالمدة الزمنية لعمل البرنامج ويحتوي على حقلين حقل خاص باجمالي المدة الزمنية التي يرغب بوضعها صاحب البرنامج لعملائه وحق آخر خاص بالمدة الزمنية التي عمل بها العميل على البرنامج اما الجدول الآخر فيحتوي على حقل خاص بالرقم السري للمستخدم وهذا يجب ان يكون مشفر .. والحقل الآخر خاص برقم تفعيل البرنامج وهو غير مهم ولاداعي لتشفيره لان هذا الرقم لايعمل الا على نفس جهاز العميل فلاخوف من تسريبه لعميل اخر "لن يعمل معه" اي كود بالضبط .. هنالك اكود كثيرة اخي الكريم وانا بالحقيقة لا أملك الوقت الكافي لشرحها فأعتذر عن ذلك كل ماعلى العميل فعله هو ادخال رقمه السري الخاص به في اول خانة وذلك لتوليد سيريال خاص به يرسله لك للحصول على رقم التفعيل اتمنى من الأخوة الأفاضل قراءة الشرح لكي يتسنى لهم فهم آلية عمل البرنامج كما ارجو ان اكون قد وفقت في الإجابة على اسئلتكم وللمزيد من الاستفسارات أنا متواجد معكم ان شاء الله ملاحظة: بعد الاطلاع على المشاكل التي واجهت الاخوة تم بحمد الله إجراء بعض التعديلات على ملف البرنامج وهذه هي النسخة المعدلة في المرفقات .. اما ملف الكراك فلم يتم عليه اي تعديل تحياتي count-sec.mdb

I wait eagerly

اتفضل استخدم هذا MsgBox DLookup("[ProcedureDate]", "SeasonalFollowUp", "[pN]=" & DMin("[PN]", "SeasonalFollowUp"))

تقدر تستخدم هذا ايضا xlWB.SaveAs "D:\Excel Destn Temp" & Format(Now, "YYYYMMDDHHNNSS") & ".xlsx"

تستطيع حل المشكل بإضافة الدالة IF =IF(A1<>"",CHOOSE(WEEKDAY(A1),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعة","السبت"),"")

تفضل الملف التالي لعله يفيدك Hossam UDF.rar

اتفضل طلب حضرتك اصبح جاهز ترقيم تلقائى برمجى.rar

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

أخي أبو سليمان تسمح لي أقولك العيب في مين أكيد العيب فيا أنا عشان أنا المشرف ولازم أشوف شغلي مع الناس اللي بتحط الأكواد ومش بتشرح فين يوضع الكود بس بردو العيب فيك ..إنت لو متابع لموضوعاتي والفهرس اللي في التوقيع وقناتي على اليوتيوب اللي بردو في التوقيع .. هتلاقي رابط بيشرح لك المطلوب من غير ما تطلبه لأنه من الأساسيات تفضل الرابط وحاول تتابع القناة (وصدقني هتلاقيها أحسن من القناة الأولى المصرية وأحسن من قناة السويس ..) تقبل تحياتي

الأخ الفاضل أبو تريكة جرب الكود بهذا الشكل Sub GetData_Example3() GetData ThisWorkbook.Path & "\1.xlsx", "1", _ "A1:t26", Sheets("1").Range("A1"), False, True GetData ThisWorkbook.Path & "\2.xlsx", "1", _ "A1:t26", Sheets("1").Range("A27"), False, True GetData ThisWorkbook.Path & "\3.xlsx", "1", _ "A1:t26", Sheets("1").Range("a53"), False, True End Sub تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False أرجو أن تكون تلك النقطة هي حل المشكلة تقبل تحياتي

السلام عليكم فورم بحث مرن وسريع بامكانك استخدامة بدلا من القائمة المنسدلة وخاصة مع البيانات الكثيرة ويقوم بوضع نتيجة البحث في الخلية النشطة امكانياته 1 - ممكن استخدامه للبحث في اكثر من نطاق في الورقة او في الملف ما عليك سوى تضيف كود لفتح الفورم وتغيير نطاق البحث فيه مثلا Sub KH_SHOW() With UserForm1 .kh_SetRng Sheets("t1").[B3:B200] .Show End With End Sub 2 - يقوم بوضع نتيجة البحث في الخلية النشطة في اي مكان في الملف 3 - يمكنك تحديد خلية وضع نتيجة البحث والفورم مفتوح 4 -بامكانك استخدامة للبحث في اكثر من عمود المرفق 2003 بحث.rar

السلام عليكم تفضل اخي اعتقد هذا ما تطلب مع التقدير ssm_Db1.zip