ExcelVBA——如何保護(hù)好您的VBA作品!!

1、ExcelVBA如何保護(hù)好您的 VBA 作品! 分享分享當(dāng)你辛辛苦苦開發(fā)出的程序作品后，是不是想過怎樣來保護(hù)好程序的源代碼呢！，保護(hù)好程序源碼，在大多會(huì)員來看都是非常關(guān)心的問題.遺憾的是,Excel 不像其他的開發(fā)軟件一樣， 在加密上很容易被各種密碼破解軟件破譯盡管這樣，我們也應(yīng)盡可能來保護(hù) Excel 工作簿和 VBA 源碼。一、為 VBAX 程設(shè)置密碼限制別人查看 VBA 源代碼的一個(gè)簡(jiǎn)單辦法就是設(shè)置 VBA 工程密碼或設(shè)置工程不可查看。方法如下：1、按 Alt+F11,在 VBE 窗口在，單擊工具一 VBAproject 屬性”，打開“VBAproject 屬性”對(duì)話框。2、單擊“VBA

2、project 屬性”對(duì)話框中的保護(hù)”選項(xiàng)卡。如圖 1 所示，選中直看時(shí)鎖定工程”復(fù)選框。在密碼”框中輸入保護(hù)密碼，在確認(rèn)密碼”框中再輸入一次密碼，然后單擊確定”,關(guān)閉“VBAproject 屬性”對(duì)話框。3、保存并關(guān)閉工作簿。當(dāng)你再打開該工作簿后，打開 VBE 窗口時(shí)，就不再顯示 VBA 的窗體、模塊等對(duì)象，看不到 VBA 源代碼了。提示：這種密碼保護(hù)很容易破解。二、設(shè)置工程不可查看限制別人查看 VBA 源代碼的方法就是設(shè)置工程不可查看方法如下：共享級(jí)鎖定：先對(duì) Excel 文件的“VBAProject 工程”進(jìn)行密碼保護(hù)（參考為 VBA 工程設(shè)置密碼”）。再打開要保護(hù)的文件，單擊工具_(dá)保護(hù)

3、_保護(hù)并共享工作簿_以追蹤修訂方式共享”，如圖 2 所示，輸入保護(hù)密碼再保存文件。當(dāng)你得新打開“VBAProject 工程屬性時(shí)，就將會(huì)提示：工程不可看！”破壞型鎖定：用 16 進(jìn)制編輯工具（如 WinHex 等）打開 Excel 文件，查找定位以下地方:ID=00000000-0000-0000-0000-000000000000)(注：實(shí)際顯示不會(huì)全部為 0),此時(shí)，你只要將其中的字節(jié)隨便修改一下即可。提示：在修改前最好做好你的文檔備份。當(dāng)然這種方法也可破解的，因?yàn)榧用芸偸窍鄬?duì)。三、防止強(qiáng)制中斷方式查看 VBA 代碼有時(shí)，我們可以通過運(yùn)行程序，然后在運(yùn)行的過程中強(qiáng)制按“Ctrl+Break

4、 強(qiáng)制中斷程序運(yùn)行，進(jìn) VBE 編輯器查看源碼。為此，我們可以在工作簿的 open 事件中加入以下語句來屏蔽“Ctrl+Break 組合鍵。Application.EnableCancelKey=xlDisabled如果要恢復(fù)“Ctrl+Break 組合鍵，則用下面的語句。Application.EnableCancelKey=xlInterrupt四、禁用宏則關(guān)閉 Excel 文件當(dāng)打開含有宏的文件時(shí)，如果禁用宏”并打開文件后，所有編輯的 VBA 程序?qū)⑹?。如何?dāng)用戶打開 Excel 文件并禁用宏時(shí)，讓文件自動(dòng)關(guān)閉呢？我們可以通過調(diào)用 Excel4.0 版(Excel 的一個(gè)老版本)的宏命

5、令來解決這個(gè)問題。因?yàn)榻煤辍惫δ軣o法禁用 4.0 版本的宏。當(dāng)您設(shè)置完成，再打開文件并點(diǎn)擊禁用宏時(shí)，系統(tǒng)就會(huì)彈如下圖所示提示信息，單擊確定”后文件就會(huì)自動(dòng)關(guān)閉。禁用宏后的提示信息設(shè)置步驟和使用方法：(1)打開要設(shè)置的文件，在 VBE 編輯器中添加一個(gè)模塊。寫入以下代碼：FunctionNoRunMacro()A 驊元格中的字符EndFunction(2)在任一個(gè)工作表標(biāo)簽上單元格右鍵，執(zhí)行插入”命令打開如下圖所示對(duì)話框，在常用選項(xiàng)卡中選取“MSExcel4.0 宏表”項(xiàng)，然后單擊確定”按鈕，在當(dāng)前工作簿中就會(huì)新建一個(gè)默認(rèn)名 Macro1 的宏表”，更改表名為宏表 1”在宏表的以下單元格中輸入

6、公式：(3)逐個(gè)選取工作簿中其他工作表，然后執(zhí)行【插入】/【名稱】/【定義】命令，打開【定義名稱】對(duì)話框。在在當(dāng)前工作簿中的名稱”框中輸入：工作表名稱+Auto_Activate。如下圖所示在 Sheetl 工作表中打開【定義名稱】對(duì)話框，定義的名稱就為：Sheet1!Auto_Activate。然后在引用位置文本框中輸入：=宏表 1!$A$2。提示：對(duì)于一個(gè)工作表數(shù)量較多的工作表逐個(gè)設(shè)置會(huì)很麻煩。所以這時(shí)可以只需為其中一個(gè)設(shè)置名稱，但要保障當(dāng)打開工作簿時(shí)，必需是設(shè)置名稱的工作表處于選取狀態(tài)”五、限制工作簿的使用次數(shù)，超過次數(shù)就自我刪除限制工作簿的使用次數(shù)，超過次數(shù)就自我刪除，也不失為保護(hù)作品

7、的一種好方法。但這種方法需要修改注冊(cè)表。有關(guān)程序的代碼如下：PrivateSubWorkbook_Open()DimcounterAsLong,termAsLong,chkchk=GetSetting(hhh,budget,使用次數(shù),)Ifchk=Thenterm=50限制使用 50 次MsgBox本工作簿只能使用&term&次&vbCrLf&超過次數(shù)將自動(dòng)銷毀！”，vbExclamationSaveSettinghhh,budget,使用次數(shù),termElsecounter=Val(chk)-1MsgBox你還能使用&counter&次，請(qǐng)及時(shí)注冊(cè)!,vbExclamationSaveSettinghhh,budget,使用次數(shù),counterIfcounter=0ThenDeleteSettinghhh,budget,使用次數(shù)killmeEndIfEndIfEndSubPublicSubkillme()Application.DisplayAlerts=FalseActiveWorkbook.ChangeFileAccessxlRea