標題: 如何設定10秒沒有使用自動關閉檔案 [打印本頁]

---

作者: danny001    時間: 2012-2-21 01:05     標題: 如何設定10秒沒有使用自動關閉檔案

我製作了個excel 表，希望在同事按下excel關閉鈕時提醒同事執行某些特定工作，例如：在關閉前show出一段文字訊息MsgBox約２０秒後再存檔關閉；我該如何寫下這段VBA？我該寫在新增模組內或寫在This workbook內呢？要如何寫ㄋ?
謝謝!!

---

作者: GBKEE    時間: 2012-2-21 08:11

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

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

複製代碼

---

作者: danny001    時間: 2012-2-22 02:31

請問如果是開啟檔案10秒自動關閉要如何更改ㄋ
謝謝大大!!

---

作者: danny001    時間: 2012-2-22 06:52

因檔案有使用讀寫密碼，如果使用維讀10秒後自動把檔案關閉要如何寫
請麻煩大大教教謝謝！！
還有一個問題VBA要如何寫，看了很多還是摸不著頭續
總之謝謝啦！！

---

作者: GBKEE    時間: 2012-2-22 09:28

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)