از بین بردن فایل اکسل در تاریخ معین
سوال :
طرز تهیه فایل اکسل که پس از مدت زمان معین اکسپایر گردد
پاسخ :
با زدن همزمان کلیدهای 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 
مطالب مرتبط
چرخاندن جدول در Word چگونه می توانم در ورد جدول را بچرخانم؟ روش چرخاندن جدول در Word چرخاندن جدول به اندازه 90 درجه Rotate Table In MicroSoft Word 2007 تبدیل جدول به تصویر چرخاندن متن در ورد charkhandane matn dar word
2013, Wednesday, 10, Apr
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
تفاوت گزینه های Blank Page با Page Break در بخش insert چیست؟ ایجاد یک صفحه خالی تفاوت گزینه های blank page با page break پاسخ به سوالات ورد
2013, Friday, 26, Apr
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
