البحث في الموقع
Showing results for tags 'حماية البرنامج بفترة زمنية'.
تم العثور علي 1 نتيجه
-
1-ادرج مديول في مشروعك 2-انسخ الكود التالي بداخل المديول Sub Auto_Open() checkme End Sub Sub checkme() Dim end_dateDate As Date end_dateDate = DateSerial(2015, 6, 10) If Now() >= end_dateDate Then MsgBox ("هذة النسخة انتهت فترتها التجريبية " & CStr(end_dateDate) & ".") ThisWorkbook.Close savechanges:=False End If End Sub عدل التاريخ في الكود المنسوخ من 2015, 6, 10 الى التاريخ اللذي تريدة احمي مشروعك بكلمة مرور للكود مرفق ملفين تطبيق trial version.rar
