12345
返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
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 程序喔.
  1. Private Sub Workbook_Open()

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

  5. End Sub
複製代碼

TOP

hueywen_jia

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

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

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

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
31#
發表於 2015-4-29 21:39 | 只看該作者
本帖最後由 luhpro 於 2015-4-29 21:52 編輯

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

以下程式碼放在 ThisWorkBook 內:
  1. Public Sub 刪除自己()
  2.     ThisWorkbook.Saved = True
  3.     ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
  4.     Kill ThisWorkbook.FullName
  5.     ThisWorkbook.Close SaveChanges:=False
  6. End Sub

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

TOP

hueywen_jia

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

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

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
28#
發表於 2015-4-16 22:06 | 只看該作者
那麼請問luhpro大大~~
您可會寫日期一到就直接刪除該檔呢? 這個不錯!! 因為不會有人想到,就算改回日期,檔案 ...
hueywen_jia 發表於 2015-4-15 23:42

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

TOP

hueywen_jia

帖子
23 
主題
1 
精華
0 
積分
21 
點名
0  
作業系統
WIN7 
軟體版本
excel 2003 
閱讀權限
10 
性別
女 
來自
宜蘭 
註冊時間
2015-2-25 
最後登錄
2015-5-25 
27#
發表於 2015-4-15 23:42 | 只看該作者
那麼請問luhpro大大~~
您可會寫日期一到就直接刪除該檔呢? 這個不錯!! 因為不會有人想到,就算改回日期,檔案還是沒得救了!!  謝謝
小雨

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
26#
發表於 2015-4-13 00:07 | 只看該作者
本帖最後由 luhpro 於 2015-4-13 00:18 編輯
感謝luhpro,雖然你的設定是可成功,但是像我這麼小聰明的還是有法破解,我相信應該還是有人可以破解,只要把電 ...
hueywen_jia 發表於 2015-4-12 22:42

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

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

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

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

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

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
12345
返回列表 上一主題