返回列表 上一主題 發帖

[發問] Excel檔案有辦法防止別人複製將檔案帶走嗎?

[發問] Excel檔案有辦法防止別人複製將檔案帶走嗎?

請問各位大大,有可能可以辦到嗎?
PKKO

回復 19# n7822123

首先非感謝 n7822123 大您的費心創作
這幾天後學閱讀您的大作後由衷景仰 太厲害了
以下問題請您解惑

1.將資料分成"資料檔"與"查詢檔"
  
  明白,解壓縮後有為4個檔案
  看不出資料檔是何種"類型"的檔案

2.將資料檔隱藏,由查詢檔的"查詢程式"去抓資料檔的內的資料
    PS:本作資料檔與查詢檔要放同一路徑(可自己設定資料夾位置,改程式的路徑即可)

  若將資料檔勾"隱藏"則跳出對話方塊顯示"找不到資料檔"
或者是後學誤會您的語意

3.將資料檔內的資料做轉碼加密,就算別人拿到資料檔也無法正常解讀資料(推薦轉成亂碼)
   PS:因為只是做個範例,本作對資料的加密與解密做的很簡單,要更複雜可自由發揮

請問要如何轉碼加密要用什麼軟體
  
4."解密程式"寫在查詢檔中,避免別人拿到資料檔的同時也拿到"解密程式"

有看到 SUb解碼()

5."查詢程式" & "解密程式" 需做隱藏,一開始不在VBA中
    PS:本作隱藏程式做法:匯入巨集程式 => 執行匯入的程式 => 移除匯入的程式
6.利用上述第5點也有附帶功能,程式"無法單行執行",減少程式被破解的機率

以上2點是後學學習精進的目標(n大您太高竿了)

7.故意把程式寫的輾轉迂迴,加大程式的閱讀難度,VBA功力不到位的人,無法看懂

我就是那個功力不到位的人

8.在資料檔加入驗證資料,當驗證不過時,"查詢程式"取消執行
    PS:本作會驗證電腦的登入帳號,若與資料檔不符,則無法查詢
有將A1儲存格admin delete
跳出對話方塊未被授權使用此檔案
得意時低調
失意時淡定

TOP

回復 21# 准提部林

感謝 准大 您的回覆

您說的小的都明白

小弟要防止"別人複製將檔案帶走"主要是
Excel檔案內的VBA程式與一些函數的應用
不讓"別人"可以輕易的收割
想一段適合的vba程式語法或者函數搭配
可能需要幾個星期甚至更久
但是若不做一些防護"別人"收割只要幾分鐘
當然遇到高手仍是"有法有破"那也只能笑一笑
畢竟都有做必要的防護了
得意時低調
失意時淡定

TOP

回復 20# n7822123

感謝 n7822123大 費心回覆
因目前上班中不方便使用公司電腦連外網
閱覽您的大作
待下班後小弟必定仔細閱覽您的大作
非常感謝
得意時低調
失意時淡定

TOP

檔案若有上百上千個需要保護, 任何用程式去處理都是耗時耗力,
弄到最後可能自己也用不了檔!!!
檔案只存在自己的PC, 做好基本登入防護即可!
若是放在區網供大家使用, 只要"另存新檔"即可複製, 防不了~~
不然呢? 拔掉外網及USB, 無法上傳雲端及複製USB碟,
當然, 用手機仍可拍照截取最機要的資料,
所以.....???

TOP

本帖最後由 n7822123 於 2020-7-12 02:14 編輯

回復 19# n7822123


抱歉,上一帖好像傳到測試檔,執行有問題

以此附件為主~~~已經盡可能藏程式碼了 ^.^", 發現就算你利害!!!

只要[A1]儲存格輸入 "admin" 即可正常查詢  ("admin"為資料檔中所設定的"允許查詢帳號")  


防止資料被帶走(範例).rar (85.82 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

本帖最後由 n7822123 於 2020-7-11 22:18 編輯

回復 18# n7822123


有破綻,還是來優化一下程式 ^.^,順便自推~~

重述一下原理


1.將資料分成"資料檔"與"查詢檔"
2.將資料檔隱藏,由查詢檔的"查詢程式"去抓資料檔的內的資料
    PS:本作資料檔與查詢檔要放同一路徑(可自己設定資料夾位置,改程式的路徑即可)
3.將資料檔內的資料做轉碼加密,就算別人拿到資料檔也無法正常解讀資料(推薦轉成亂碼)
   PS:因為只是做個範例,本作對資料的加密與解密做的很簡單,要更複雜可自由發揮
4."解密程式"寫在查詢檔中,避免別人拿到資料檔的同時也拿到"解密程式"
5."查詢程式" & "解密程式" 需做隱藏,一開始不在VBA中
    PS:本作隱藏程式做法:匯入巨集程式 => 執行匯入的程式 => 移除匯入的程式
6.利用上述第5點也有附帶功能,程式"無法單行執行",減少程式被破解的機率
7.故意把程式寫的輾轉迂迴,加大程式的閱讀難度,VBA功力不到位的人,無法看懂
8.在資料檔加入驗證資料,當驗證不過時,"查詢程式"取消執行
    PS:本作會驗證電腦的登入帳號,若與資料檔不符,則無法查詢
9.可以在資料檔設定多個帳號,並為每個帳號設置"使用期限",若超過使用期限,則"查詢程式"會自動"刪除資料"
   PS:這功能本作沒添加,真要刪除資料,你們還怎麼測阿~(笑)
10.多設一個License檔,有此Lincense則可以查詢資料,可設期限,定期給使用者License (License 可綁電腦編號、網卡編號)
   PS:這個要搞很麻煩,懶的做了,僅提供思路,基本上大部分專業軟體都有此功能,內容一定是經過轉碼過的"暗碼"


為了讓你們可以測試,我也自己寫了"後門程式"
查詢檔[A1]沒有資料時,查詢程式會抓"電腦使用者帳號"去跟資料檔比對
查詢檔[A1]有資料時,查詢程式會抓[A1]儲存格資料去比對
要能正常查詢,只要[A1]儲存格輸入 "admin" 即可正常查詢
(此為資料檔中所設定的"允許查詢帳號")



防止資料被帶走(範例).rar (115.44 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

本帖最後由 n7822123 於 2020-7-11 21:31 編輯

回復 17# n7822123


密碼的"碼" 打錯字了,^.^"

會導致 密碼資料無法正常查詢~~


密碼的碼打錯字了.......png

修正如附件

防止資料被帶走(範例).rar (104.57 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

本帖最後由 n7822123 於 2020-7-11 21:00 編輯

回復 16# SB8926

需求:
關於您所提出的 方法一 設立驗證檔 的方式 可否再詳述或者是否有程式碼及步驟可供後學參考 感謝

寫個範例給你參考看看,假設下圖是很重要的個人"機密資料",要防止被帶走



原理如下

1.將資料分成"資料檔"與"查詢檔"
2.將資料檔隱藏,由查詢檔的"查詢程式"去抓資料檔的內的資料
    PS:本作資料檔與查詢檔要放同一路徑(可自己設定資料夾位置,改程式的路徑即可)
3.將資料檔內的資料做轉碼加密,就算別人拿到資料檔也無法正常解讀資料(推薦轉成亂碼)
   PS:因為只是做個範例,本作對資料的加密與解密做的很簡單,要更複雜可自由發揮
4."解密程式"寫在查詢檔中,避免別人拿到資料檔的同時也拿到"解密程式"
5."查詢程式" & "解密程式" 需做隱藏,一開始不在VBA中
    PS:本作隱藏程式做法:匯入巨集程式 => 執行匯入的程式 => 移除匯入的程式
6.利用上述第5點也有附帶功能,程式"無法單行執行",減少程式被破解的機率
7.故意把程式寫的輾轉迂迴,加大程式的閱讀難度,VBA功力不到位的人,無法看懂
8.在資料檔加入驗證資料,當驗證不過時,"查詢程式"取消執行
    PS:本作會驗證電腦的登入帳號,若與資料檔不符,則無法查詢
9.可以在資料檔設定多個帳號,並為每個帳號設置"使用期限",若超過使用期限,則"查詢程式"會自動"刪除資料"
    PS:這功能本作沒添加,真要刪除資料,你們還怎麼測阿~(笑)
10.多設一個License檔,有此Lincense則可以查詢資料,可設期限,定期給使用者License (License 可綁電腦編號、網卡編號)
    PS:這個要搞很麻煩,懶的做了,僅提供思路,基本上大部分專業軟體都有此功能,內容一定是經過轉碼過的"暗碼"


以上10點如果都做的足夠"完美",不止可防"君子","小人" 若功力不夠也當不成"小人"了
為了讓你們可以測試,我也自己寫了"後門程式"
查詢檔[A1]沒有資料時,查詢程式會抓"電腦使用者帳號"去跟資料檔比對
查詢檔[A1]有資料時,查詢程式會抓[A1]儲存格資料去比對
要能正常查詢,只要[A1]儲存格輸入 "admin" 即可正常查詢
(此為資料檔中所設定的"允許查詢帳號")

以下檔案有兩個查詢檔,內容是一樣的,只是另存成新舊不同版本
做個簡單的範例也花了不少時間,不容易呀,有學到東西的人幫忙推一下~
原理上面都說了,可自行研究,有細節不懂,也可發問^.^


防止資料被帶走(範例).rar (92.2 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 2# mark15jill

方法:
   1.設定驗證檔:
       設定一個專門用來驗證 那個檔案是否存在使用者本機,如果沒有,直接刪除。
       A=檔案    B=驗證檔   
        
        A開啟後,自動讀取B,判斷是否為所設定的。如果是,繼續執行。  如果不是,直接刪除檔案。

m大 您好
關於您所提出的 方法一 設立驗證檔 的方式 可否再詳述或者是否有程式碼及步驟可供後學參考 感謝
得意時低調
失意時淡定

TOP

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題