麻辣家族討論版版 » Excel程式區 » Excel檔案閒置過久自動存檔案結束

返回列表下一主題上一主題發帖

Excel檔案閒置過久自動存檔案結束

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-9-26 23:31 | 只看該作者

Excel檔案閒置過久自動存檔案結束

各位:
由於有些Excel檔案是和多人共用，但有時忘記關閉以至其他人不能開啟，請問如何用VBA解決例如當檔案已經閒置5分鐘程式會自動存檔和結束檔案。

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-9-27 17:20 | 只看該作者

回復 1# mmggmm
試試看
ThisWorkbook模組的程式碼

Option Explicit
Dim Msg_Time As Date
Const 間隔 = #12:01:00 AM# '閒置5分鐘
Private Sub Workbook_Open()
Msg_Time = Time + 間隔 '紀錄: 閒置時間
Application.OnTime Msg_Time, "THISWORKBOOK.Close_Me" '閒置時間到,執行關閉檔案程式(Close_Me)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'任意工作表有動作
Application.OnTime Msg_Time, "THISWORKBOOK.Close_Me", , False '取消執行關閉檔案程式(Close_Me)
Workbook_Open
End Sub
Private Sub Close_Me()
Me.Close True '閒置時間到,關閉檔案
End Sub

複製代碼

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

3^#

發表於 2012-9-27 20:53 | 只看該作者

GBKEE你好!
其中Const 間隔 = #12:01:00 AM# 和平時用TimeValue="00:01:00"分別在那裡,謝謝.

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

4^#

發表於 2012-9-27 22:22 | 只看該作者

本帖最後由 luhpro 於 2012-9-27 22:24 編輯

GBKEE你好!
其中Const 間隔 = #12:01:00 AM# 和平時用TimeValue="00:01:00"分別在那裡,謝謝.
mmggmm 發表於 2012-9-27 20:53

#12:01:00 AM# 以時間為單位來計算增量值, 賦予 Ontime 的是時間表示量.
"00:01:00" 用字串形式來表示, 需欲比較的目前時間字串內容與指定的時間增量後結果字串完全相同才觸發動作.

補充 GBKEE 發表於 2012-9-27 17:20

#1 的內容可能需做個調整:
03.Const 間隔 = #12:01:00 AM#    '閒置5分鐘
改為
Const 間隔 = #12:05:00 AM#    '閒置5分鐘
或
Const 間隔 = #12:01:00 AM#    '閒置1分鐘
皆可

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

5^#

發表於 2012-9-27 23:30 | 只看該作者

解釋詳盡，勞煩了。

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

6^#

發表於 2012-9-28 10:13 | 只看該作者

大大:
試用結果當用表工作時出現以下錯誤.
on time.JPG

on time.JPG

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-9-28 16:12 | 只看該作者

回復 6# mmggmm
2# 的程式碼全部是ThisWorkbook模組的程式碼

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

8^#

發表於 2012-9-28 23:50 | 只看該作者

問題已解決，謝謝.

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

9^#

發表於 2012-9-30 23:33 | 只看該作者

大大:

on time.JPG

訊息
在自己電腦上開啟是没有出現.
當放在網絡硬盤上開啟就出現，請問原因何在。

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題