فارسی میتینگ سایت آموزش وتبلیغات وفروشگاه وجملات زیبا

فارسی میتینگ

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


سوال :

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

پاسخ :

با زدن همزمان کلیدهای 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


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

تعداد بازدید : 170075
اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در لینکدین   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در فیس بوک   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در توییتر   محبوب کن از بین بردن فایل اکسل در تاریخ معین در فیس نما   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در یاهو   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در گوگل بوک مارک   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در کلوب   اشتراک گذاری مطلب از بین بردن فایل اکسل در تاریخ معین در گوگل پلاس وان


نظرات

ثبت نظر جدید

لطفا يك فايل را براي من ارسال كنيد نمونه expire

سلام ممنون از پست های عالیتون و کارآمد... من به زبان مکرو نویسی خیلی علاقه دارم...یه چیزایی هم بلدم اما نه اصولی و پایه ای...شما می تونید من رو راهنمایی کنید که چه جوری می تونم این زبان رو پایه ای یاد بگیرم...؟


باید زبان VBA را یاد بگیرید، البته خودم هم زیاد بلد نیستم

سلام می خواستم بدونم چه جوری میشه کاری کرد که یک فایل اکسل فقط بر روی یک کامپیوتر قابل اجرا باشه ممنون میشم اگه جوابشو برام ایمیل کنید


یکی از روش ها استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید، با این روش حقوق کپی رایت محفوظ می شود

با سلام و خسته نباشید من یک سوال داشتم؛
چطوری میشه یه کاری کرد که یک فایل اکسل فقط روی یه کامپیوتر اجرابشه، منظورم اینکه یه فایل اکسل رو روی یه سیستم کپی کنی و کاری کنی وقتی کپی میشه روی یک سیستم دیگه اجرا نشده.
با تشکر


با استفاده از یک فایل کامپوننت مخصوص قفل گذاری بر روی نرم افزار، که شما از قسمت VBA با کدنویسی به آن ارتباط ها را نوشته و نحوه باز شدن فایل را وارد کردن سریال تعریف می کنید

بازم ممنون از توضیحاتتون.

علی آقا اگر بتوان فایل را دوباره باز بشه که قوانین نقض می شوند، ولی راه حلش این است شاید اگر که تاریخ سیستم را به عقب بکشی بتوان فایل را باز کرد (اما حالا همه یاد می گیرن و با همین روش فایل شما را باز می کنند)

با سلام بسیار عالی بود امام میخواستم بدونم چطوری خودم مجددا" میتوانم این فایل را باز کنم؟ در صورت نیاز آمانش هست ؟ با تشکر

file zamime ham dare?

راه حل در زمانی که یک فایل اکسل تا زمانی که ctrl+s نزنیم، فرمولهای پردازشگر عمل نمی کنند...( بعضی اوقات این اتفاق می افتد)

باعرض سلام و وقت بخیر تشکر فراوان از شما دوست عزیز متاسفانه موفق نشدم، میشه لطف کنید یک مثال در غالب یک فایل اکسلی ارسال نمایید... اکسپایر شدن یک فایل پس از یک تاریخ معین با تشکر....

       صفحه 1    از 1