از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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
ایجاد فایل اکسل با تاریخ انقضاء - ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی)
نظرات و پاسخ ها
شاهرخ جمشیدی نوشته :
با درود مي خواستم بپرسم كه آيا راهي هست براي اينكه وقتي يك فرم باز مي كنيم ,توي قسمت NEW باز بشه .يعني اطلاعات قبلي رو نشون نده و براي اطلاعات جديد آماده باشه .لطفا اگه دستوري داره ارسال كنيد.سپاسگزارم
فریدون شمس نوشته :
لطفا یک فایل را برای من ارسال کنید نمونه expire
سیدی نوشته :
سلام ممنون از پست های عالیتون و کارآمد... من به زبان مکرو نویسی خیلی علاقه دارم...یه چیزایی هم بلدم اما نه اصولی و پایه ای...شما می تونید من رو راهنمایی کنید که چه جوری می تونم این زبان رو پایه ای یاد بگیرم...؟
مدیر سایت فارسی میتینگ در پاسخ به سیدی نوشته :
باید زبان VBA را یاد بگیرید، البته خودم هم زیاد بلد نیستم
محمد جعفری - شیراز نوشته :
سلام می خواستم بدونم چه جوری میشه کاری کرد که یک فایل اکسل فقط بر روی یک کامپیوتر قابل اجرا باشه ممنون میشم اگه جوابشو برام ایمیل کنید
مدیر سایت فارسی میتینگ در پاسخ به محمد جعفری - شیراز نوشته :
یکی از روش ها استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید، با این روش حقوق کپی رایت محفوظ می شود
مهدی نوشته :
با سلام و خسته نباشید من یک سوال داشتم؛
چطوری میشه یه کاری کرد که یک فایل اکسل فقط روی یه کامپیوتر اجرابشه، منظورم اینکه یه فایل اکسل رو روی یه سیستم کپی کنی و کاری کنی وقتی کپی میشه روی یک سیستم دیگه اجرا نشده.
با تشکر
مدیر سایت فارسی میتینگ در پاسخ به مهدی نوشته :
با استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید
صفحه 1 از 3 
مطالب مرتبط
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
برقراری ارتباط بین یک تیبل با چندین تیبل بانک اطلاعاتی جدول مشخصات شناسنامه فرد relation کلید خارجی در جدول دیتابیس ساخت دیتابیس با جداول زیاد و ایجاد رابطه بین جداول و نحوه تعریف کلید خارجی database تیبل یا جدول بانک اطلاعاتی access
2016, Saturday, 13, Feb
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
