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

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


الردود الموصى بها

لقد بحثت في المنتدي عن كود لجعل البرنامج يقفل بعد مرور شهر أو أسبوع من أستخدامه ولا يتم فتحه الا بعد ادخال رقم سري مثل 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

رابط هذا التعليق
شارك

  • 10 months later...

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

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

Me.Close SaveChanges:=False

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

بالتوفيق :fff:

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information