اذهب الي المحتوي
أوفيسنا

ياسر العربى

الخبراء
  • Posts

    1,510
  • تاريخ الانضمام

  • Days Won

    34

كل منشورات العضو ياسر العربى

  1. السلام عليكم ورحمة الله وبركاته أخي الصقر جزاكم الله خيرا علي ما قدمته وما تقدمه لخدمة الاعضاء واما استاذي وعمي وابي واخي ابو يوسف الغالي علينا احزنتني بعباراتك المكسرة اليائسة ارجو من الله ان يفك كرب كل المسلمين وينصر كل مظلوم ويعيد الحق لاصحابه اخي الغالي لا تحزن ان الله معنا كما قالها الحبيب المصطفى سيدنا محمد صلى الله عليه وسلم لابي بكر رضي الله عنه واعلم ان الامة تبعث من جديد اليك المثال هؤلاء اطفال غزة يلعبون والشهيد يضحك فرحا هذا هو جيل النصر باذن الله وعشان خاطر ابو يوسف دا ملف لتفقيط لحد ما تزهق من الارقام بس بالجنيه المصري دا عشان الجنيه المصري غالي اوي اوي المهم ان الملف دا انا اشتغلت عليه كتير ومجربتش اشوف طريقة عمله ازاي عشان لما ابص في المعادلات دماغي بتصدع اسيبكو مع الصداع بقي fkat.rar
  2. اخي انس دروبي اشكرك علي مرورك الكريم علي موضوعي هذا وبالنسبة لبرنامجك ربنا يوفقك في انهائه في اقرب وقت وينفع به كل المسلمين باذن الله ونفعك وايانا وجميع المسلمين العلم والعمل الصالح وشكرا علي اقتراحات الحماية اعرف هذه الاقتراحات وزيادة عليهم اخفاء مكان الملف الاصلي بتغيير امتداده وتشغيله عن طريق ملف تنفيذي مصمم بالفيجوال بيسك مثلا وهذا قمت به كثيرااا امر اخر رقم الهارد هذا فيسكال وليس فيرشوال اي انه الرقم الاصلي للهارد وليس رقم البارتشنات الموجود بها الملف جرب فرمت وشوف هذا الرقم ثابت لا يتغيرررررر وشكرا حبيبي للمساتك الجميلة ومرورك الجميل
  3. انا قلت كدا لانه صاحب الموضوع مطبق النظام دا وثانيا هو فعلا بيحفظ الملف مع تغيير قيمة الخلية وبالفعل مطبق عنده ارجاع القيمة صفر في الحدث فتح الملف ذكرت هذا لعله لا يصل لتغيير ما ذكرت ويبقي له تغيير القيم فقط اوافقك الرائ تماما كلما بعد الكود عن قيم داخل خلايا كان افضل ناهيك عن التعديلات التي تحدث علي الشيتات فنتجنب تغيير قيم واسما ء ذاخل اي شيت او خليه . تقبل مروري الغلس معلشي
  4. اود ان اضيف شيئا وهي مشكلة الاخ الذي طرح الموضوع وهو في الحدث Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub الموضوع بسيط في زر اغلاق اللي هو مصممه مجرد يغير قيمة Sheets(1).Range("a1").Value = 0 يخليها اي قيمة تانية وهيقفل عادي خالص Sheets(1).Range("a1").Value = 1 Application.Quit وشكراااااااااااااااااااااااا
  5. مشكور حبيبي نورت بيتك التاني اوفيسنا انت من فلسطين الله ينصرها بس كنت عاوز اقولك فلسطين حره حبيبي العرب كلهم هما يلي محتلين
  6. حبيبي ياشعبولا كدا المشكلة بس خلاص تسلم حبيبي
  7. يلا بقي مش مشكلة كنا عاوزين نخدم بس ابو براء سباق في الخيرر حلوة اوي قاعدة IF شغالة مش بتقول لا ابدا
  8. اخي هل توضح ماذا تريد ان يحدث عند ادخال قيم غير الموجودة هل ترغب بتفريغ الخلايا الاخرى وارسال رسالة تفيد ان المدخلات غير المسموح بها ام تريد ماذا يحدث عند ادخال قيم غير المسموح بها ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
  9. حبيبي ابوعبد الرحمن البغدادي اعمل ليك الجزء دا وتشوف لينا وظيفة في الوزارات دي الواحد قرف من القطاع الخاص يعني انا مش طماع اوي شوف لي وظيفة وكيل وزارة او اي حاجه في الرنج دا هههههه نرجع للمهم ايه لازمة الشيتات الكتير دي نعملهم كلهم في شيت واحد وكدا كدا انت حاطط بند رقم الوزاره في كل شيت ودا يغني عن تكرار الشيتات لمجرد اختيارك الشخص هيبان هو تبع انهي وزارة عادي ولا انت ايه رايك
  10. سأقوم ببعض التغييرات علي الملف هعملها بطريقة تانية كدا يمكن تظبط عندك وياريت الاخوة اللي جربو الملف هل اشتغل تمام ولا نفس المشكلة؟؟؟
  11. ههههههههههههه وانا سايب السورس كود عشان الناس تتعلم مهو انا هقفله بعد كدا دا طبيعي ولا معاك كود لفك حماية السورس كود طيب كدا انا سمعت وشوفت اكواد كتيرر لموضوع فك حماية السورس كود دي ولكن لم اجربها هل الفك سهل ام صعب؟؟؟؟؟؟؟؟ ولكن انا قدرت من فترة كبيرة ان ادخل علي سورس كود محمي بدون مشاكل خالص كنت بستخدم مجموعة بديلة للاوفيس وفتحت الاكواد عادي DiskSerial.rar
  12. اخي الغالي محمد الريفي انا لم اشاهد الفيديو بسبب انتهاء مساحة الفلاشة المخصصة للتحميل والان هي علي وضع التصفح سرعات بطيئة دا في مكان العمل هل نجعل اصحاب السرعات البطيئة لهم نصيب من شرحك الاكثر من رائع وطالما اخي وحبيبي ابو البراء قال انه رائع يبقي اكيد زي الفل مفيش كلام فقط نرجو ادارج امثلة وشرح مبسط مكتوب للناس اللي زي حالتي كدا تقبل مروري المتواضع ياسر العربي
  13. هذا حل وهو ما استخدمه لحماية ملفي دا مثال بسيط طبقته علي هذا الملف جرب الشفت دا كدا وقولي shift قال "شيفت" قال طالما انت بتلغي شغل الماكرو عند التشغيل انا اقطعوا عنك وقت الانهاء DiskSerial.rar
  14. جرب غير اي حاجه في السيريال اللي تحت اللي هو دا واحفظ واقفل كدا وشوف هيفتح معاك ولا لا دخل علي الفورم دا المطلوب ملحوظة نقل الملف DLL للسيستم النقل تلقائي بدون تدخل من المستخدم
  15. هشوف وابلغك انا اصلا كنت بستعمل الموضوع دا في كذا برنامج بالفيجوال بيسك وقلت ادخل الاكسيل معاهم بس واضح انك جي تقولي خليه في الفيجوال بيسك احسن
  16. اي سيريال غير الموجود ميفتحشي shiftوجاري البحث عن كود كويس يوقفلك الخاصية AllowBypassKey property
  17. هل تعلم انك معلم مشكور اخي الغالي المعلومات السريعة دي مهمه وخصوصا لما تكون بسيطة كدا تقبل مروري المتواضع ياسر العربي
  18. بسم الله الرحمن الرحيم الكثير منا بعد تعب شاق في برنامجه يريد أن يحميه من عبث الآخرين او حمايته لأهميته الشخصية تتعدد متطلبات الحماية ولكن تبقي المشكلة عند معظم مستخدمي الاكسيل من مبتدئ لمتوسط او لاكثر قليلا يوفرو لعملهم بعض الحماية ولكن يتضح انه يوجد نقاط ضعف كثيرة وكل ما يقوم بسد نقطة تظهر اخرى حتى يمل من هذا الموضوع ولكن الان اضع بين ايديكم نموذج لحماية ملفك برقم سيريال الهارد الخاص بك أي انه ان قام احد بنقل البرنامج بدون علمك فلن يعمل في أي مكان اخر الا اذا قمت انت بتفعيلة عن طريق ادخال كلمة المرور الخاصة بصاحب البرنامج ومنها تقوم بالتعديل علي السيريال ومرفق اداة منفصلة لاظهار السيريال نمبر للهارد ستحتاجها في تسويق عملك بمعني طلب منك احد الاشخاص عمل برنامج له بمقابل مادي بعد ان تنتهي من برنامجه ترسل له الأداة لإظهار رقم الهارد وتقول له افتح الاداة من علي الجهاز المراد تشغيل البرنامج عليه ويرسل لك رقم الهارد وتقوم بتسجيله في البرنامج وبس يامعلم جربوا البرنامج وبلغوني التقييم اكيد وحش كالعادة صح كلمة مرور التأكيد :123 DiskSerial.rar ان لم يظهر رقم الهارد في الاداة عند الضغط علي الزر فقم بتشغيل الاداة في وضع كمسئول
  19. بعد اذن اخي ابو البراء تفضل انا معملتش حاجه من عندي كله تغيير مسار بس Test0.rar
  20. عند فك الضغط يظهر ملف الاكسيل وبجانبه فولدر اسمه data به كل الصور ويجب ان يكون الفولدر في نفس مسار ملف الاكسيل اما اذا كنت تحب نقلة في مكان اخر فلتقم بالتعديل علي كود المسار
  21. ارجو منك التوضيح كي اتمكن من مساعدتك هل تود الترحيل لنفس الخلايا فقط ام تحتاج الى ترحيل الى الخلايا وعند ادخال جديد تريد الترحيل ان يكون تحت القديم مثلا ؟؟؟؟؟؟؟؟
  22. بسم الله الرحمن الرحيم سابقا كنت ابحث عن طريقة اعرض بها منتجا علي الاكسيل بمعلومات كاملة عنه وهي بيانات المنتج وصورته فكان من السهل الوصول للبيانات بمعادلات بسيطة وسهلة اما صورة المنتج فكانت مشكلتي حتى وجدت هذا الكود الرائع فاحببت ان افيدكم لان المعظم سيحتاجه لنفس غرضي او لوضعه مثلا كصورة مستخدم لكل مستخدم لبرنامج الاكسيل وغيرها اليكم المثال يوجد فولدر داتا وهو الذي يحتوي علي كل الصور التي ستعرض في الملف كل ما عليك هو ان تدخل علي شيت اتنين وتملاء بياناتك الكود والصنف والحجم والسعروالملاحظات وتدخل علي فولدر داتا وتضع فيه صور منتجاتك وتعمل لها اعادة تسمية ولكل كود منتج تكتبه علي الصورة الخاصة به وتدخل علي الشيت الاول وتكتب الكود الذي ترغب في رؤية بياناته اترككم لتجربوه بنفسكم ياسر العربي image.rar
×
×
  • اضف...

Important Information