از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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
ایجاد فایل اکسل با تاریخ انقضاء - ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی)
نظرات و پاسخ ها
علی نوشته :
بازم ممنون از توضیحاتتون.
مدیر سایت فارسی میتینگ نوشته :
علی آقا اگر بتوان فایل را دوباره باز بشه که قوانین نقض می شوند، ولی راه حلش این است شاید اگر که تاریخ سیستم را به عقب بکشی بتوان فایل را باز کرد (اما حالا همه یاد می گیرن و با همین روش فایل شما را باز می کنند)
علی نوشته :
با سلام بسیار عالی بود امام میخواستم بدونم چطوری خودم مجددا" میتوانم این فایل را باز کنم؟ در صورت نیاز آمانش هست ؟ با تشکر
sasan نوشته :
file zamime ham dare?
طاها نوشته :
راه حل در زمانی که یک فایل اکسل تا زمانی که ctrl+s نزنیم، فرمولهای پردازشگر عمل نمی کنند...( بعضی اوقات این اتفاق می افتد)
صفحه 2 از 3 
مطالب مرتبط
ذخیره فایل ورد به پی دی اف PDF سیو به پی دی اف Save to pdf تبدیل ورد به پی دی اف Convert Word To PDf چطور می توان فایل ورد را به پی دی اف ذخیره کنم تا بتوان با نرم افزار Adobe Acrobat Reader باز کرد؟ پلاگین SaveToPDF پی دی اف
2013, Friday, 07, Jun
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
برقراری ارتباط بین یک تیبل با چندین تیبل بانک اطلاعاتی جدول مشخصات شناسنامه فرد relation کلید خارجی در جدول دیتابیس ساخت دیتابیس با جداول زیاد و ایجاد رابطه بین جداول و نحوه تعریف کلید خارجی database تیبل یا جدول بانک اطلاعاتی access
2016, Saturday, 13, Feb
کاربر گرامی سوالات خود را در زمینه نرم افزارهای ورد اکسل اکسس پاورپوینت اینترنت و سیستم عامل ویندوز از منوی تماس با ما ارسال نمائید، تا در اولین فرصت پاسخ داده شود pasokh be soalat
2012, Friday, 15, Jun
پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس دراکسس 2010 بر روی فرم" navigation "دو فرم را باز کرده ام میخواهم دکمه ای ایجاد کنم که با کلیک بر روی آن محتویات یک فیلد از فرم اول در فیلدی از فرم دوم درج شود
2013, Friday, 25, Oct
