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

luhpro

高中生 Rank: 3 Rank: 3

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

35^# 跳轉到 »

發表於 2015-5-7 05:30 | 只看該作者

本帖最後由 luhpro 於 2015-5-7 05:36 編輯

感謝luhpro大大,可是我照您給的1-10項的字串放進去不能用! 一樣是放ThisWorkBook裡的OPEN嗎?
hueywen_jia 發表於 2015-5-7 00:25

其實裡面有刪除自己跟 ThisWorkBook 的 Open(開啟程式時就會執行,而它在設定的時間到時會呼叫刪除自己這個程序) 兩個程序.
底下這一段就是 ThisWorkBook裡的OPEN 程序喔.

Private Sub Workbook_Open()
If Date > #5/28/2115# Then 刪除自己 ' 今天為此日期時, 刪除本檔案, 注意 : 檔案刪除後無法復原, 測試時請務必先備份本檔案.
End Sub

複製代碼

TOP

hueywen_jia

小學生 Rank: 1

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

34^#

發表於 2015-5-7 00:28 | 只看該作者

If Date > DateValue("2015/05/01") Then
MsgBox ("已超使用期間，不可使用。請求助開發者!!")
...
taiwan16699 發表於 2015-5-5 16:59

大大~我不知道該放哪耶~可以詳細的說明嗎? SORRY~我不會BASIC語法

小雨

TOP

hueywen_jia

小學生 Rank: 1

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

33^#

發表於 2015-5-7 00:25 | 只看該作者

本帖最後由 hueywen_jia 於 2015-5-7 00:27 編輯

感謝luhpro大大,可是我照您給的1-10項的字串放進去不能用! 一樣是放ThisWorkBook裡的OPEN嗎?

小雨

TOP

taiwan16699

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: Windows 7
軟體版本: 1
閱讀權限: 10
註冊時間: 2013-5-2
最後登錄: 2019-11-21

論壇贊助勳章

32^#

發表於 2015-5-5 16:59 | 只看該作者

If Date > DateValue("2015/05/01") Then
MsgBox ("已超使用期間，不可使用。請求助開發者!!")
Exit Sub
End If

Q1 = Application.InputBox(prompt:="請輸入製作者名稱：")
If Q1 = "Vercent" Then
Else: MsgBox "密碼錯誤，即將退出！"
ActiveWorkbook.Close savechanges = False
End If

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

31^#

發表於 2015-4-29 21:39 | 只看該作者

本帖最後由 luhpro 於 2015-4-29 21:52 編輯

回復 30# hueywen_jia
晤...這陣子比較忙...

以下程式碼放在 ThisWorkBook 內:

Public Sub 刪除自己()
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close SaveChanges:=False
End Sub
Private Sub Workbook_Open()
If Date > #5/28/2115# Then 刪除自己 ' 今天為此日期時, 刪除本檔案, 注意 : 檔案刪除後無法復原, 測試時請務必先備份本檔案.
End Sub

複製代碼

TOP

hueywen_jia

小學生 Rank: 1

帖子: 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 編輯

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

小雨

TOP

hueywen_jia

小學生 Rank: 1

帖子: 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

小雨

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

28^#

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

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

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

TOP

hueywen_jia

小學生 Rank: 1

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

27^#

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

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

小雨

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

26^#

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

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

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

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

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

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

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

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

TOP

[發問] EXCEL設定某日期到檔案無法開啟

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]