كود أغلاق الملف عند تاريخ محدد

[hoodahooda]

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

ولكن وجدت كود لجعله يقفل بعد 5 مرات أستخدام ولا يتم فتحه؟ اريد كودلجعل البرنامج يقفل لواحده بعد شهر من أستخدامه او أسبوع ولا يتم فتحه الأ بعد أدخال كلمه السر واليوسر نيم "وهذا كله في الأكسيل" :o

[حسام نور]

- كود يقوم بأغلاق الملف إذا كان تاريخ اليوم أكبر من أو يساوي 1/1/2003

Private Sub Workbook_Open()
 If Date >= #1/1/2003# Then
  Application.Quit
 End If
End Sub

- مرفق ملف وبه الكود .. جرب أن تغير التاريخ بجهازك لما قبل 1/1/2003 لكي يفتح الملف معك .

- وجرب أن تفتح الملف الآن فستجده يغلق تلقائياً طالما التاريخ تجاوز التاريخ الذي تقوم أنت بتحديده

- للأطلاع على مكان الكود وتعديله أضغط Alt+F11 ولكن بعد تشغيل الملف وبعد تعديل التاريخ بجهازك

- وشكراً

Exit.zip

[ابومؤنس]

وهذا اجتهاد مني .

ارجو ان ينال اعجابكم . هذا الملف يطالب بادخال اسم المستخدم ورقمة السيري في حالة تجاوز التاريخ المحدد فية .

ملف مرفق

بالتوفيق .

[hoodahooda]

شكرا لكم علي حسن المساعدة

[منسق]

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

هل يمكن جعل الكود يغلق الملف المفتوح فقط بدون إغلاق exsel كلياً

تحياتي،،

منسق

[محمد حجازي]

السلام عليكم ...

يمكنك ذلك عن طريق الكود :

Me.Close SaveChanges:=False

وانتبه إلى تغيير القيمة المنطقية (TRUE / FALSE) حسب رغبتك (حفظ التغييرات من عدمها).

بالتوفيق