كود لمسح شيت محدد بشرط معين

[Elsayeh]

الأحوة الافاضل السلام عليكم ورحمة الله وبركاته

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

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

وذلك لحماية برنامج أود تسويقه

ولكم كل الاحترام والتقدير

[Elsayeh]

أين جهابزة الاكسيل

[احمدزمان]

السلام عليكم

هذه فكرة اخرى

هذا الكود يفتح ملف الإكسل 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 مرات وعدلت ولم تضهر أي نتيجة

[احمدزمان]

السلام عليكم

AYMZ077.rar

[ريان أحمد]

السلام عليكم الأستاذ أحمد زمان

شكر عل الملف لكن ماهو مبدأعمله أي قمت بفتح الملف وعدلت وحفضت التعديلات بشكل عادي

[احمدزمان]

و عليكم السلام

اخي الفاضل

هذا فقط اثبات ان الكود شغال

وانته تضيف للكود الشغل الى تبغاه يصير

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

الله يبارك فيك اخى احمد

السلام عليكم