返回列表 上一主題 發帖

[原創] 一個不錯的保護保密思維與構想 保護範例-包裝程式寫在工作表上然後執行程式

[原創] 一個不錯的保護保密思維與構想 保護範例-包裝程式寫在工作表上然後執行程式

以前練習的檔案
練習的重點在保護程式
使用這個檔案"信任存取VB專案"要勾選
由於VBA專案破解程式太多
這裡提供一個保護保密思維與構想
把程式寫在工作表上然後把工作表保護起來而vba專案內只放讀取程式
VBA專案就算破解了也看不到主程式因為主程式放在別的地方
當然還是會被破解我現在就想到兩三種破解方式
感覺好像有點捨近求遠因為工作表破解程式更多
不多說看了練習範例就知道

感謝xxlandbank前輩的協助與提供的讀取程式
http://www.excelhelp.net/cgi-bin ... pic=4520&show=0
我有修了一下程式讓程式能跨工作表也能執行

如果你破解了相信你會學到很多東西

A18.rar (8.54 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

不知道是不是我沒有找到破解的關鍵.

我猜有可能是因為不管在哪裡都看不到 Sheets("Sheet0")
所以兩個程式在 trace 時都會直接跳到 error1: End Sub
以至於什麼事都沒發生呢?

TOP

不知道是不是我沒有找到破解的關鍵.

我猜有可能是因為不管在哪裡都看不到 Sheets("Sheet0")
所以兩個程 ...
luhpro 發表於 2010-5-6 05:39



    ThisWorkbook.Sheets("Sheet0")是個4.0巨集表
做深度隱藏後必須以程式取消隱藏
可與阿吉另篇保密函數做參考
就知其中的流程為何
學海無涯_不恥下問

TOP

ThisWorkbook.Sheets("Sheet0")是個4.0巨集表
做深度隱藏後必須以程式取消隱藏
可與阿吉另篇保 ...
Hsieh 發表於 2010-5-6 12:04



    版主
請問
如果單純為了TEST1.TEST2(用意為何?)
打開檔案後看的到模組
寫的程式也是有關SHEET0的部份
所以是否要把阿吉兄另篇保密函數直接貼上就能解嗎?
謝謝!

TOP

回復 5# PD961A


    把阿吉兄的文章全看懂再解吧
學海無涯_不恥下問

TOP

回復 1# HUNGCHILIN
下面程序可進入"SHEETM", "SHEET0".
要看內容,請搜尋HUNGCHILIN的秘笈.
  1. Sub Ex()
  2.     Dim S As Worksheet, N As Name
  3.     With Workbooks("A18.XLS")
  4.         For Each S In .Sheets
  5.             S.Visible = True
  6.         Next
  7.         For Each N In .Names
  8.             .Names(N.NameLocal).Delete
  9.         Next
  10.         For Each S In .Sheets(Array("SHEETM", "SHEET0"))
  11.             .Unprotect  .Sheets("SHEETM").[B2]
  12.         Next
  13.     End With
  14. End Sub
複製代碼

TOP

本帖最後由 HUNGCHILIN 於 2010-12-11 15:16 編輯

首先很高興這則有人發出訊息討論

這篇主要介紹,如何將程式寫在SHEET上並使用,我們可以利用這手法把主程式分割出來保護與利用程式

細節與引申重點:
1.我們可以將程式分SHEET,分別存在不同SHEET使用
2.在同一SHEET,我們可以將程式寫在不同欄
用以上手法可以做程式分區

______________________________________________________________


讀取此檔後,若仍有疑惑,您可能需要先研究與學習下列相關保護保密技巧

檔案內所顯示的保護保密技巧複合了
1.EXCEL4.0巨集表(宏表)函數
2.SHEET非常隱藏技巧(較特別的觀念與技巧為EXCEL4.0巨集表並不能在VBE編輯器中顯示),需要使用VBA程式或4.0巨集表,才能顯示與隱藏EXCEL4.0巨集表
3.欄列隱藏技巧


上述各技巧若想更深入研討請到EXCEL保護保密技巧點選 目錄細項連結 發問討論會更瞭解
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

下列程序 密碼進入SHEETM,且修正.EXCEL4.0巨集, 要觀看內容,請研究阿吉的 欄列隱藏技巧.
  1. Sub Ex()
  2.     Dim Sh As Worksheet
  3.     With Workbooks("A18.XLS")
  4.         For Each Sh In .Sheets
  5.             Sh.Visible = xlSheetVisible
  6.         Next
  7.         With .Sheets("SHEETM")
  8.             .Unprotect .[B2]
  9.             .Range("A12, A17").Replace "=", "刪掉這裡="
  10.         End With
  11.         .Save
  12.     End With
  13. End Sub
複製代碼

TOP

本帖最後由 HUNGCHILIN 於 2010-12-12 21:25 編輯

看到這則想起以前有一個
想法與練習題還沒完成

就是使用在遠端更新VBA程式版本的程式...
想法是在公司內部網路中,使用方法將VBA更新
而不變更使用的主檔

我幾個朋友作過類似這種VBA更新版本程式,閒談之間,我沒有製作過與練習過
我的想法是運用 TXT檔當轉介,所以須要一個,TXT轉VBA閱讀器
.....
印象中好像有那本書有寫過這範例...
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

本練習範例完成sheet0等顯示後,仍然無法看到工作表內容,請多加指導.
Lin

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題