　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-5-4 23:13 | 只看該作者

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

VBA

以前練習的檔案
練習的重點在保護程式
使用這個檔案"信任存取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專欄

chiata

中學生 Rank: 2

帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

14^#

發表於 2012-12-26 14:46 | 只看該作者

試著將此程式分段跑時發現的，請教各位前輩有辦法克服嗎?

在With ThisWorkbook.VBProject.VBComponents加上中斷點後執行，
會出現"此時無法進入中斷模式"，
此時按結束，則新增的Module2以及程式碼都會留下來。

TOP

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兔年全勤獎章

13^#

發表於 2011-4-16 13:31 | 只看該作者

本帖最後由 GBKEE 於 2011-4-16 13:43 編輯

回復 13# lin
[無法用keyboard and mouse] 是欄與列全部隱藏了 ,選取工作表左上角往右將欄拉出來左上角往下將列拉出來.
[工作表仍然是灰色] 是阿吉兄將儲存格的圖樣及字型顏色同設為灰色.
你可以修改儲存格的圖樣顏色為無色彩 ,字型顏色為自動.

TOP

lin

中學生 Rank: 2

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

12^#

發表於 2011-4-15 23:37 | 只看該作者

工作表指令工具 ->選項 ->檢視->勾選 [公式]
工作表仍然是灰色,且無法用keyboard and mouse

Lin

TOP

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兔年全勤獎章

11^#

發表於 2011-4-14 17:51 | 只看該作者

回復 11# lin
工作表指令工具 ->選項 ->檢視->勾選 [公式]

TOP

lin

中學生 Rank: 2

帖子: 172
主題: 2
精華: 0
積分: 230
點名: 0
作業系統: winXP
軟體版本: office 2007& office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-23
最後登錄: 2017-10-28

10^#

發表於 2011-4-14 17:03 | 只看該作者

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

Lin

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

9^#

發表於 2010-12-12 13:16 | 只看該作者

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

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

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

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

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

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兔年全勤獎章

8^#

發表於 2010-12-12 11:55 | 只看該作者

下列程序密碼進入SHEETM,且修正.EXCEL4.0巨集, 要觀看內容,請研究阿吉的欄列隱藏技巧.

Sub Ex()
Dim Sh As Worksheet
With Workbooks("A18.XLS")
For Each Sh In .Sheets
Sh.Visible = xlSheetVisible
Next
With .Sheets("SHEETM")
.Unprotect .[B2]
.Range("A12, A17").Replace "=", "刪掉這裡="
End With
.Save
End With
End Sub

複製代碼

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

7^#

發表於 2010-12-11 14:41 | 只看該作者

本帖最後由 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

GBKEE