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

GBKEE

超級版主 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兔年全勤獎章

22^#

發表於 2015-4-10 14:57 | 只看該作者

回復 21# hueywen_jia

ThisWorkbook模組的程式碼

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean) '活頁簿的預設事件程序(關閉檔案時自動執行)
Me.Save
End Sub

複製代碼

活頁簿模組的預設事件還有許多,可練習看看
工作表模組一樣有許多的預設事件

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

luhpro

高中生 Rank: 3 Rank: 3

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

23^#

發表於 2015-4-11 07:31 | 只看該作者

謝謝樓上大大,可是我用了之後,開啟檔案出現：
我點 "是"跟"否"檔案可以關閉沒錯,但是我點"取消",就不會自動 ...
hueywen_jia 發表於 2015-4-9 20:46

底下這個方式即使檔案設成唯讀, 也照樣能關閉檔案:

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

複製代碼

KdStudio

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 10
註冊時間: 2015-4-11
最後登錄: 2015-4-11

24^#

發表於 2015-4-11 13:36 | 只看該作者

要指定某日後巨集無法使用，也可以改變驗證方式。
指定日期，如上面前輩所寫的，
IF DATE > "日期" THEN
關閉活頁簿
END IF

改變驗證方式，可以配合GOOGLE 試算表。(可設定不顯示網頁)
活頁簿打開，自動打開網頁，進入GOOGLE 試算表，去抓指定欄位的值，如果值跟你事先輸入VBA的值相同，就繼續。如果值不相同，就強制關閉活頁簿。

這方式比較具有彈性。

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

25^#

發表於 2015-4-12 22:42 | 只看該作者

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

小雨

luhpro

高中生 Rank: 3 Rank: 3

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

26^#

發表於 2015-4-13 00:07 | 只看該作者

本帖最後由 luhpro 於 2015-4-13 00:18 編輯

感謝luhpro,雖然你的設定是可成功,但是像我這麼小聰明的還是有法破解,我相信應該還是有人可以破解,只要把電 ...
hueywen_jia 發表於 2015-4-12 22:42

其實不論是怎樣的保護都有可能被破解.

最簡單的方法是取得檔案後,
先製作其備份,
接著就是矛與盾的問題囉.

我也曾想過日期到了時直接刪除自身檔案,
不過只要依上述先執行過,
遇到不能用時先改日期後再Copy回去照樣能繼續使用,
除非檔案內資料與目前日期有正相關,
日期不對結果就不具參考價值,
當然那又是另一種破解方式了.

或者寫參考值到登錄檔執行時立即作比對,
寫參考值到另一個加密檔案裡...等等,
當然...還是本篇開頭那句話...

後續再補充:
或者若確認電腦開啟檔案時一定會上網,
那麼日期直接跟國家時間與頻率標準實驗室抓,
這樣改電腦本身日期的破解方式就沒有用了.

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

27^#

發表於 2015-4-15 23:42 | 只看該作者

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

小雨

luhpro

高中生 Rank: 3 Rank: 3

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

28^#

發表於 2015-4-16 22:06 | 只看該作者

那麼請問luhpro大大~~
您可會寫日期一到就直接刪除該檔呢? 這個不錯!! 因為不會有人想到,就算改回日期,檔案 ...
hueywen_jia 發表於 2015-4-15 23:42

網路上找到的:
刪除巨集所在的活頁簿

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

29^#

發表於 2015-4-16 22:36 | 只看該作者

回復 28# luhpro

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

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

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

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

小雨

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

30^#

發表於 2015-4-28 00:04 | 只看該作者

本帖最後由 hueywen_jia 於 2015-4-28 00:06 編輯

沒有人回應我......有沒有可以幫幫我呀~~謝謝

小雨