گاهی اوقات برنامه هایی با اکسل میسازیم که بیشتر تعامل کاربر با آن از طریق یوزفرم (UserForm) هایی است که طراحی کرده ایم و از خود اکسل فقط برای جمع آوری داده استفاده می کنیم. در این مواقع بهتر است خود برنامه اکسل را مخفی کرده و تنها از طریق یوزرفرم ها با کاربر تعامل داشت. در ادامه روشی ساده برای مخفی کردن اکسل در زمان نمایش یوزرفرم ها بیان می شود.
جهت مخفی کردن برنامه اکسل از کدنویسی استفاده می شود. برای اینکار فایل اکسل خود را باز کنید و با استفاده از کلیدهای ترکیبی Alt +F11 وارد محیط VBA شوید. سپس همانند تصویر از کادر Project در سمت چپ محیط VBA بر روی گزینه ThisWorkbook دوبار کلیک کنید تا محیط کد نویسی آن باز شود.
حال کد های ذیل را در این قسمت وارد نمایید:
Sheet1.ir
Private Sub Workbook_Open()
'============= Sheet1.ir ============
'مخفي کردن برنامه اکسل
Application.ActiveWindow.Application.Visible = False
'نمايش يوزر فرم
UF_My_Form.Show
End Subنتیجه همانند تصویر ذیل خواهد بود. دقت نمایید که در خط 6 بجای UF_My_Form نام یوزرفرم خود را وارد نمایید.
با اجرای این کد در زمان باز شدن اکسل، برنامه اکسل مخفی شده و تنها یوزرفرم به کاربر نشان داده می شود. حال باید کاری کنیم که با بستن یوزرفرم توسط کاربر، برنامه اکسل نیز ذخیره و بسته شود. برای این کار روی نام یوزرفرم کلیک راست کرده و گزینه View Code را انتخاب و کدهای ذیل را وارد نمایید.
Sheet1.ir
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'============== sheet1.ir ================
' ذخیره کردن برنامه اکسل
ActiveWorkbook.Save
' بستن برنامه اکسل
Application.Quit
End Subبا بستن فرم توسط کاربر این کد اجرا شده و ابتدا تغییرات اعمال شده را ذخیره سپس به طور کامل از برنامه اکسل خارج می شود.
درصورتی که تمایل دارید اختیار نمایش یا عدم نمایش برنامه اکسل را به خود کاربر بدهید می توانید یک دکمه بر روی فرم ایجاد کرده و در رویداد (event) آن از کدهای ذیل استفاده کنید:
Sheet1.ir
Private Sub CommandButton1_Click()
'============= Sheet1.ir ============
'نمایش برنامه اکسل
Application.ActiveWindow.Application.Visible = True
'پنهان کردن يوزر فرم
UF_My_Form.Hide
End Subباز دقت نمایید که در خط 6 بجای UF_My_Form نام یوزرفرم خود را وارد کنید. تمام کاری که باید برای مخفی کردن اکسل در زمان نمایش یوزرفرم انجام می دادیم همین بود. در ویدیو ذیل می توانید نتیجه کار را ببینید.
2 دیدگاه. پیغام بگذارید
سلام.من میخوام همزمان با اجرای یوزر فرم ب صورت مودال و مخفی شدن اکسل ٬ فایل های اکسل دیگه رو هم باز کنم و اطلاعاتشون رو وارد فرم کنم ولی دو مشکل هست .وقتی فرم مودال دارم یا فایلهای دیگه باز نمیشه و یا با بستن فایلها فرم هم بسته میشه.چکاری میشه کرد؟
سلام، با اجرای یوزفرم تا زمان اجرای آن امکان کار با خود اکسل وجود ندارد، مگر اینکه یک دکمه داشته باشید که یوزرفرم را موقتا ببند (Hide) بعد اتمام کار با اکسل دوباره یوزفرم را فرخوانی کرد(show)