از بین بردن فایل اکسل در تاریخ مشخص

 تهیه فایل اکسل که پس از مدت زمان معین منقضی گردد

پاسخ :

با زدن همزمان کلیدهای Alt + F11 وارد صفحه VBpProject شده و سپس از کادر سمت چپ مربوط به BVroject PExcel بر روی ThisWorkBook دوبار کلیک کرده تا صفحه کد نویسی مربوط به این کاربرگ باز شود.

از لیست کشویی سمت چپ و بالا گزینه WorkBook را انتخاب کرده تا تابع Private Sub Workbook_Open() ایجاد گردد. سپس کد های زیر نیز زیر End Sub تابع ایجاد شده کپی نمائید.

---

Sub ExpirationCode()
Dim ExpirationDate As Date

ExpirationDate = DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") & CStr(ExpirationDate) & " به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If
End Sub

---

سپس نام تابع دوم که بنام ExpirationCode ایجاد نمودیم را در تابع اول  Workbook_Open قرار دهید

و در انتها این فایل را ذخیره نموده البته با پسوند Excel Macro-enabled workbook .xlsm ذخیره نمائید.(بدلیل ماکروی ایجاد شده)

نکته : همانطور که در خط سوم تابع ExpirationCode تاریخ انقضاء را مشخص کردیم، شما باید این تاریخ را به میلادی وارد نمائید.

و درکل باید کدهای شما بصورت زیر باشد.

---

Private Sub Workbook_Open()
ExpirationCode
End Sub
------------------------------------------------------
Sub ExpirationCode()
Dim ExpirationDate As Date

ExpirationDate = DateSerial(2013, 5, 29)

If Now() >= ExpirationDate Then
MsgBox ("دوره آزمایشی نرم افزار در تاریخ ") & CStr(ExpirationDate) & " به پایان رسیده است"
ThisWorkbook.Close savechanges:=False
End If

End Sub

نقل از http://www.farsimeeting.com