پاپ اپ هنگام خروج

**mokaram** · 2019/11/09, 08:14

به تاپیک زیر نگاهی بیندازید

پاپ آپ

**MA.SHAHIDI** · 2019/11/10, 12:00

سلام
امکان دارد ماکروی خروج و سیو فایل شما را داشته باشم ؟

**kazem1359** · 2019/11/10, 21:21

سلام
ماکروی زیر هست

کد:

Private Sub CommandButton7_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

چون حجم فایل کمی زیاد هست دارای شیتهای متعدد و یوزر فرم های متعدد هنگام خروج برای حدود 7 ثانیه ای طول می کشه تا فایل بسته بشه بنده می خواهم در این مدت پیامی نشان کاربر داده بشه که کمی صبر کند .
ممنون

**حسام بحرانی** · 2019/11/11, 00:27

پیشنهاد

نوشته اصلی توسط kazem1359

سلام
ماکروی زیر هست

کد:

Private Sub CommandButton7_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

چون حجم فایل کمی زیاد هست دارای شیتهای متعدد و یوزر فرم های متعدد هنگام خروج برای حدود 7 ثانیه ای طول می کشه تا فایل بسته بشه بنده می خواهم در این مدت پیامی نشان کاربر داده بشه که کمی صبر کند .
ممنون

سلام
پیشنهاد می کنم فارغ از مدت زمان بسته شدن فایل ( که در سیستم های مختلف با زمان های مختلف اِعمال میشه ) یک پاپ آپ مدت دار قرار بدید.

طبیعتاً حتی اگر زمان بسته شدن فایل بیشتر و یا حتی کمتر هم شود، چون کاربر درحال انتظار است، کل فرآیندِ بسته شدن فایل را برنامه ریزی شده می پندارد.
موفق باشید.

**میثم مقدم نیا** · 2019/11/11, 09:34

نوشته اصلی توسط kazem1359

سلام
یک فایل اکسل دارم که تعدادی یوزر فرم داره و در یکی از یوزر فرم ها دکمه خروج از اکسل داره هنگام خروج چون فایل کمی سنگینه و فایل را نیز سیو می کنه برای چند ثانیه طول می کشه تا فایل بسته بشه ایا میشه هنگامی که روی دکمه خروج کلیک می کنیم یک پنجره پاپ اپ باز بشه و پیام بده( کمی صبر کنید ) تا فایل کامل بسته بشه.
ممنون

با اجازه اساتید عزیزم
دوست عزیزم اقای kazem1359 من یه فایل پیوست برای خروج برای شما تهیه کردم که برای 3 ثانیه هست که بنا به نیازتون زمان اونا تغییر بدید
تو فایل پیوست من به جای پاپ آپ از یوزر فرم استفاده کردم یکی ساده و دیگری یکم پیشرفته امید وارم به کارتون بیاد

فایل های پیوست شده