標題:

Excel 限制檔案開啟時間

發問:

公司裡有些檔案存在share drive，目前檔案設為共用，但是檔案裡有巨集，而且檔案很大，每次開啟都要很久，現在考慮將檔案取消共用，可是同事經常打開檔案後忘了關，導致別的同事無法使用，請問如何限制檔案開啟的時間？例如：檔案開啟時的時間是15:30，限制時間是20分鐘，15:50分時會出現警示訊息「請儲存並關閉檔案」，如果使用者在5分鐘後仍未關閉，excel就自動關閉檔案。 更新: 請問小花大大，三個巨集是放在模組裡嗎？沒有任何反應耶~~ 更新 2: 可以了，我把它套在檔案裡看看有沒有問題喔...謝謝!! 更新 3: 請問小花大大，這三個巨集在檔案關閉前會先存檔嗎。 更新 4: 小花大大，我把Savechanges改成True，它已經會先存檔了；但有另一個問題想請教:如果 user 正在使用檔案，也會出現message然後自動關閉嗎？

最佳解答:

首先請先貼上下列三個巨集 Sub 限時() t = Now + TimeValue("00:20:00") '20分鐘後執行close_file1巨集 Application.OnTime t, "close_file1" End Sub Sub close_file1() MsgBox "請儲存並關閉檔案" a = Now + TimeValue("00:05:00") '設定五分鐘後呼叫close_file2巨集關閉檔案 Application.OnTime a, "close_file2" End Sub Sub close_file2() Workbooks("限時關閉.XLS").Close SaveChanges:=False '這裡請自行更改為你的檔案名稱 End Sub 第二個在編輯器中點選ThisWorkBook 貼上下列程式碼 Private Sub Workbook_Open() Call 限時 End Sub 設定檔案開啟時呼叫,限時()巨集 希望能幫到你的忙 2007-12-13 22:18:08 補充： 只要時間到就會執行程式,如果要讓使用者繼續使用就還要另外設計,不過依你的原本的意思是防止其他人使用太久,要強制關閉,如果你想讓某些人使用不受限制,那就要再設計

其他解答:

到下面的網址看看吧 ??http://qoozoo09260.pixnet.net/blog7CA86E5143DBFF22