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