پرسش نمایش فرم هنگام خروج از برنامه

[golchehre]

سلام میخواستم در پایان کار با اکسل وقتی فایلو میبندیم بعد از زمانی که پنجره save نمایش داده میشه یه فرم نمایش داده بشه داخلشم تامیر گذاشتم بعد از 2ثانیه بسته میشه. برای اینکار تو کدوم ایونت و چه دستوری باید بنویسم تا فرمو در آخر کار نمایش بدم
داخل Workbook_Deactivate نمیشه چون اگه فایل دیگه ای باز کنیم باهم تداخل میخورن و بسته میشه
ممنون از شما

[میثم مقدم نیا]

سلام میخواستم در پایان کار با اکسل وقتی فایلو میبندیم بعد از زمانی که پنجره save نمایش داده میشه یه فرم نمایش داده بشه داخلشم تامیر گذاشتم بعد از 2ثانیه بسته میشه. برای اینکار تو کدوم ایونت و چه دستوری باید بنویسم تا فرمو در آخر کار نمایش بدم
داخل Workbook_Deactivate نمیشه چون اگه فایل دیگه ای باز کنیم باهم تداخل میخورن و بسته میشه
ممنون از شما

یتونید فایل نمونه قرار بدید تا بتونم راهنمایتون کنم

[حسام بحرانی]

سلام میخواستم در پایان کار با اکسل وقتی فایلو میبندیم بعد از زمانی که پنجره save نمایش داده میشه یه فرم نمایش داده بشه داخلشم تامیر گذاشتم بعد از 2ثانیه بسته میشه. برای اینکار تو کدوم ایونت و چه دستوری باید بنویسم تا فرمو در آخر کار نمایش بدم
داخل Workbook_Deactivate نمیشه چون اگه فایل دیگه ای باز کنیم باهم تداخل میخورن و بسته میشه
ممنون از شما

سلام
این کد را در Workbook - AfterSave امتحان کنید:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
UserForm1.Show
End Sub 

موفق باشید.

[golchehre]

سلام
این کد را در Workbook - AfterSave امتحان کنید:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
UserForm1.Show
End Sub 

موفق باشید.

ممنون از شما جناب بحرانی AfterSave هم امتحان کرده بودم بدیش اینه که وسط کار کاربر بخواد سیو کنه فرم نمایش داده میشه و یه مشکل دیگه اینکه اگه فایلو سیو نکنه نمایش داده نمیشه در اصل یه splash فرم میخوام در اخر کار نمایش بده

[حسام بحرانی]

ممنون از شما جناب بحرانی AfterSave هم امتحان کرده بودم بدیش اینه که وسط کار کاربر بخواد سیو کنه فرم نمایش داده میشه و یه مشکل دیگه اینکه اگه فایلو سیو نکنه نمایش داده نمیشه در اصل یه splash فرم میخوام در اخر کار نمایش بده

سلام
این کد رو امتحان کنید:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
UserForm1.Show
End Sub 

[golchehre]

سلام
این کد رو امتحان کنید:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
UserForm1.Show
End Sub 

ممنون جناب بحرانی ولی راهی نیست که پنجره save هم نمایش داده بشه و کاربر چه سیو کنه چه Dont save بزنه بعدش نمایش داده بشه؟ و Cancel بزنه نشون نده

[golchehre]

ممنون جناب بحرانی ولی راهی نیست که پنجره save هم نمایش داده بشه و کاربر چه سیو کنه چه Dont save بزنه بعدش نمایش داده بشه؟ و Cancel بزنه نشون نده

[حسام بحرانی]

سلام
حالا شما خودتون رو عصبانی نکنید!

پیشنهاد می کنم یک یوزر فرم شبیه شکل زیر درست کنید.

سپس برای کلیک بر روی گزینه های مربوطه ( Save , Don't Save و Cancel ) دستورات لازم رو بنویسید.

موفق باشید.