如何設定10秒沒有使用自動關閉檔案

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-2-21 08:11 | 顯示全部帖子

回復 1# danny001
ThisWorkbook模組的事件程式

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Msg As String
Msg = CreateObject("WScript.Shell").popup("10 秒後 "& Me.Name & "關閉檔案 !! ", 10, Me.Name, 0)
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-2-22 09:28 | 顯示全部帖子

回復 4# danny001
參考這裡 ...

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。