اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

تحياتي،،

منسق

قام بنشر

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

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

Me.Close SaveChanges:=False

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

بالتوفيق :fff:

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

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

Important Information