返回列表 上一主題 發帖

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

danny001

帖子
55 
主題
11 
精華
0 
積分
90 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-7-22 
最後登錄
2019-5-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-21 01:05 | 只看該作者

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

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

danny001

帖子
55 
主題
11 
精華
0 
積分
90 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-7-22 
最後登錄
2019-5-2 
3#
發表於 2012-2-22 02:31 | 只看該作者
請問如果是開啟檔案10秒自動關閉要如何更改ㄋ
謝謝大大!!
danny

TOP

danny001

帖子
55 
主題
11 
精華
0 
積分
90 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-7-22 
最後登錄
2019-5-2 
4#
發表於 2012-2-22 06:52 | 只看該作者
因檔案有使用讀寫密碼，如果使用維讀10秒後自動把檔案關閉要如何寫
請麻煩大大教教謝謝！！
還有一個問題VBA要如何寫，看了很多還是摸不著頭續
總之謝謝啦！！
danny

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-2-22 09:28 | 只看該作者
回復 4# danny001
參考這裡 ...

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題