از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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 
مطالب مرتبط
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
ذخیره فایل ورد به پی دی اف PDF سیو به پی دی اف Save to pdf تبدیل ورد به پی دی اف Convert Word To PDf چطور می توان فایل ورد را به پی دی اف ذخیره کنم تا بتوان با نرم افزار Adobe Acrobat Reader باز کرد؟ پلاگین SaveToPDF پی دی اف
2013, Friday, 07, Jun
چگونه می توانم برای سند ورد حاشیه گذاری کنم؟ border in word ویرایش متن در سند ورد تنظیم حاشیه و چیدمان در ورد تب Page Layout Page Background گزینه Page Borders
2012, Wednesday, 28, Nov
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
تفاوت بین اکسل و اکسس چیست؟ نرم افزار Excel یک نرم افزار محاسباتی با سلول های هوشمند است ، که از آن می توان برای انجام محاسبات مالی و حسابداری استفاده نمود.نرم افزار Access یک نرم افزار بانک اطلاعاتی به مانند SQL Server و Oracel
2013, Wednesday, 15, May
