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
