کد های VBA قابلیت های زیادی به کاربران آفیس میدهند و در مثال پیش رو می خواهیم کاری کنیم که فایل اکسل ارائه شده از سوی شما به مشتری تنها 5 با امکان باز شدن داشته باشد.
برای انجام این کار کد زیر را درون رویداد Open مربوط به فایل بنویسید.
حال اگر فایل را به صورت Macro Enabled ذخیره کنید و مجددا باز کنید، بعد از 5 بار باز کردن با پیغام خطا مواجه شده و فایل به طور خودکار بسته خواهد شد.
توضیح:
متد های Getsetting و Savesetting برای ذخیره و ضعیت در رجیستری ویندوز استفاده می شوند و عبارتهای Demo که در کد نوشته شده متن های اختیاری برای نام گذاری وضعیت و دوباره خوانی وضعیت می باشند. همچنین مقدار صفر در متد Getsetting مقدار پیش فرضی است که در صورت پیدا نشدن وضعیت در رجیستری برگردانده می شود.
حال اگر کد های فایل را رمزگذاری کنید کاربر به راحتی نخواهد توانست از این مانع عبور کند!
برای مشاهده فایل نمونه به فایل پیوست مراجعه کنید.