Jika application ontime membuat masalah ketika aplikasi sudah semakin
dilengkapi, coba dengan doevents dalam do loop.
Sub Exit_()
Dim w As Workbook
dim dtBatas as date
Unload frmTask
For Each w In Application.Workbooks
w.Save
Next w
ThisWorkbook.Application.Visible = False
dtbatas=now+timevalue("00:00:01")
do
doevents
loop until now>dtbatas
Application.Quit
End Sub
Wassalam,
Kid.
2012/9/14 Hilman <[email protected]>
> **
>
>
> Pake trik dikit mau gak???
> Kalo mau coba trik berikut ini...
> Ketika exit window di klik, routine Exit_ di ekesekusi. Namun di dalam
> routine nya tidak ada perintah application.quit, tetapi ditunda dikit
> dengan application.ontime
>
> semoga berkenan....
>
>
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.Workbooks
> w.Save
> Next w
>
> ThisWorkbook.Application.Visible = False
> Application.OnTime Now + TimeValue("00:00:1"), "Exit_2"
> End Sub
>
> Sub Exit_2()
> Application.Quit
> End Sub
>
>
> ------------------------------
> *From:* Longinus Along <[email protected]>
> *To:* "[email protected]" <[email protected]>
> *Sent:* Thursday, September 13, 2012 7:24 PM
> *Subject:* [belajar-excel] MenuMaker_UFrmAPI, (dengan teksberjalan)
>
>
> Dear All Master,
>
> Mohon pencerahannya,,,,untuk file yang terlamnpir pada email ini, terdapat
> 2 buah file yaitu 1.MenuMaker_UFrmAPI, (tanpa teksberjalan)
> 2.MenuMaker_UFrmAPI, (dengan teksberjalan)
> kedua menu tersebut sama-sama saya sisipkan submenu File===>Exit===>Ke
> Windows
> di sub menu KE WINDOWS ada macro :
> Sub Exit_()
> Unload frmTask
> Dim w As Workbook
> For Each w In Application.Workbooks
> w.Save
> Next w
> Application.Quit
> End Sub
>
> masalahnya adalah pada userform MenuMaker_UFrmAPI, (dengan teksberjalan),
> ketika saya klik sub menu KE WINDOWS tidak bisa keluar dari excel
> (Crash/hang). klu tanpa teks berjalan tidak ada masalah. saya sudah coba
> dengan berbagai cara tetap tidak bisa. Mohon bantuan dari master,
> terimakasih.
>
> salam,
> Longinus
>
>
>
>
