EXCEL設定某日期到檔案無法開啟 - Excel程式區

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

12^#

發表於 2015-4-6 18:10 | 顯示全部帖子

本帖最後由 Hsieh 於 2015-5-17 23:00 編輯

原來是點兩下,雖然出現了,可是我複製了之前大大給的字串貼進去後還是無法執行,跳到F8那欄是錯誤的語法,SORRY~我笨拙~不會用這種
請高手幫我,我想讓附檔中的所有巨集在某個時間一到就無法使用,最好是檔案都無法開啟是最好的!! 可以告訴我怎麼做嗎? 或是幫我修改檔案後再回傳給我呢? 因為檔案有點大,需要用到很多活頁簿及公式,謝謝
[attach]20590[/attach]

小雨

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

13^#

發表於 2015-4-9 20:46 | 顯示全部帖子

謝謝樓上大大,可是我用了之後,開啟檔案出現：

我點 "是"跟"否"檔案可以關閉沒錯,但是我點"取消",就不會自動關閉,而且還可以使用巨集!! 怎麼辦!?

Private Sub Workbook_Open()
Dim MyDate As Date
MyDate = #4/4/2015#
If Date >= MyDate Then Application.Quit
End Sub

小雨

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

14^#

發表於 2015-4-12 22:42 | 顯示全部帖子

感謝luhpro,雖然你的設定是可成功,但是像我這麼小聰明的還是有法破解,我相信應該還是有人可以破解,只要把電腦時間改在我設定的日期前,還是可以開啟~~這點好像很難讓它不成功厚.......
所以我也很頭痛!!

小雨

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

15^#

發表於 2015-4-15 23:42 | 顯示全部帖子

那麼請問luhpro大大~~
您可會寫日期一到就直接刪除該檔呢? 這個不錯!! 因為不會有人想到,就算改回日期,檔案還是沒得救了!! 謝謝

小雨

帖子: 23
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: WIN7
軟體版本: excel 2003
閱讀權限: 10
性別: 女
來自: 宜蘭
註冊時間: 2015-2-25
最後登錄: 2015-5-25

16^#

發表於 2015-4-16 22:36 | 顯示全部帖子

回復 28# luhpro

下列巨集會先將檔案本身改以唯讀的方式開啟，再刪除原來的檔案，然後關閉唯讀檔。

可用於限制檔案的使用期限，期限一到就刪除檔案。

可是我要在哪設定日期呢? 看不懂,因為我不懂巨集中的公式

Sub 刪除自己()
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End Sub

小雨