Elsayeh قام بنشر مايو 1, 2011 قام بنشر مايو 1, 2011 الأحوة الافاضل السلام عليكم ورحمة الله وبركاته هل يمكن عمل كود مرتبط بشرط معين وليكن عدم توافق السيريال نمبر للجهاز مع المدون في البرنامج فيقوم هذا الكود في هذه الحالة بمسح شيت محدد دون سؤال المستخدم أو توجيه أي رسالة تحذيرية له وذلك لحماية برنامج أود تسويقه ولكم كل الاحترام والتقدير
احمدزمان قام بنشر مايو 3, 2011 قام بنشر مايو 3, 2011 السلام عليكم هذه فكرة اخرى هذا الكود يفتح ملف الإكسل 3 مرات فقط يمكنك التعديل عليه كماتريد وهو منقول Private Sub Workbook_Open() Option Explicit Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") Unload Me End If End Sub
ريان أحمد قام بنشر مايو 3, 2011 قام بنشر مايو 3, 2011 شكراالأستاذ أحمد زمان لقد جربت الكود ولم ينجح قمت بفتحه 3 مرات وعدلت ولم تضهر أي نتيجة
ريان أحمد قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 السلام عليكم الأستاذ أحمد زمان شكر عل الملف لكن ماهو مبدأعمله أي قمت بفتح الملف وعدلت وحفضت التعديلات بشكل عادي
احمدزمان قام بنشر مايو 5, 2011 قام بنشر مايو 5, 2011 و عليكم السلام اخي الفاضل هذا فقط اثبات ان الكود شغال وانته تضيف للكود الشغل الى تبغاه يصير
هادى محمد المامون سالم قام بنشر مايو 5, 2011 قام بنشر مايو 5, 2011 بسم الله الرحمن الرحيم الله يبارك فيك اخى احمد السلام عليكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.