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

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

سوال :

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

پاسخ :

با زدن همزمان کلیدهای Alt + F11 وارد صفحه VBpProject شده و سپس از کادر سمت چپ مربوط به VBProject Excel بر روی 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

ایجاد فایل اکسل با تاریخ انقضاء - ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی)

استحکام بنا

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