ExcelVBA編程使用動(dòng)態(tài)鏈接庫(kù)通過上面介紹的方法保護(hù)工程，非授權(quán)用戶不能查看工程的源碼。但是，僅僅設(shè)置密碼保護(hù)是不夠的，通過Internet可以搜索到多種方法對(duì)其進(jìn)行破解。對(duì)源碼安全性較高的保護(hù)方式是把VBA核心代碼封裝到動(dòng)態(tài)鏈接庫(kù)（DLL）文件中，然后用VBA代碼訪問動(dòng)態(tài)鏈接庫(kù)提供的過程或函數(shù)來完成工作。動(dòng)態(tài)鏈接庫(kù)很難被反編譯，非常安全。DLL是DynamicLinkLibrary的縮寫，意為動(dòng)態(tài)鏈接庫(kù)。在Windows中，許多應(yīng)用程序并不是一個(gè)完整的或執(zhí)行文件，它們被分割成一些相對(duì)獨(dú)立的動(dòng)態(tài)鏈接庫(kù)，即DLL文件，放置于系統(tǒng)中。在VBE中,調(diào)用DLL文件時(shí)其運(yùn)行速度是非?？斓摹Ｓ脩艨梢酝ㄟ^MicrosoftBasic6.0將VBA代碼封裝到動(dòng)態(tài)鏈接庫(kù)（DLL）文件中。1將VBA代碼封裝成動(dòng)態(tài)鏈接庫(kù)打開MicrosoftBasic6.0，在【新建工程】中選取'ActiveXDLL”,新建一個(gè)工程。在【屬性】窗口中將工程名改為VBAPrj，類模塊名改為VBACIs。然后執(zhí)行【工程】丨【引用】命令，在對(duì)話框中選取【MicrosoftOffice11.0ObjectLibrary］，然后保存工程。將VBA工程中，將要封裝的過程（如Test）的代碼復(fù)制到VB的工程管理器中類模塊VBACls的【代碼】編輯窗口中。這個(gè)過程成為類模塊VBACls的一個(gè)方法，然后將工程編譯生成DLL文件?？梢詫⒍鄠€(gè)過程復(fù)制到VB的類模塊中，從而使用DLL文件中包含多個(gè)方法。在Excel中，通過類模塊VBACls建立的對(duì)象來調(diào)用這些方法。2．修改代碼雖然VBA源于VB，但是兩者畢竟存在著一些差異。因此，需要對(duì)轉(zhuǎn)移到VB中的VBA代碼做一些必要的修改。修改VBA代碼中所特有類型的對(duì)象。如果所添加的代碼里有VBA所特有類型——如WorkBook、WorkSheet、Rang等所建立的對(duì)象，編譯時(shí)會(huì)提示錯(cuò)誤，因?yàn)閂B不能夠識(shí)別這些對(duì)象。此時(shí)，可以將這些對(duì)象作為過程或函數(shù)的參數(shù)進(jìn)行傳遞。需要注意的是，這些參數(shù)的類型都一律設(shè)為Object。例如，過程Test中要訪問對(duì)象Range，但是VB無法識(shí)別Range。于是，就為過程Test添加一個(gè)參數(shù)range來傳遞Range，即Test可定義為Test（rangeAsObject）。修改VBA所特有一般變量。VB也無法識(shí)別VBA特有的一般變量，如ProtectType，同樣，我們也將其作為過程后函數(shù)的參數(shù)進(jìn)行傳遞，不過其類型名都一律設(shè)為Variant。修改VBA所特有常量。如果在VBA代碼中出現(xiàn)了這樣的語(yǔ)句：ProtectionType=msoLineSolid很明顯，msoLineSolid是Excel所獨(dú)有的常量，不為VB所能識(shí)別，因而無法通過編譯。當(dāng)然，可以用修改變量的方法予以修改。在Excel中使用如下語(yǔ)句來獲取該常量的值：MsgBoxCStr（msoLineSolid）其中CStr是類型轉(zhuǎn)換函數(shù)，返回參數(shù)相應(yīng)的字符串。只要在Excel中觸發(fā)此事件，會(huì)彈出一個(gè)對(duì)話窗，顯示'1”。于是，就可以將語(yǔ)句改為ProtectionType=1。3．封裝用戶窗體同樣，也可以將用戶窗體封裝到動(dòng)態(tài)鏈接庫(kù)文件里。首先，打開VBA編輯器，右擊工程資源管理器中的用戶窗體，執(zhí)行【導(dǎo)出文件】命令，并將窗體文件保存到指定的路徑下。然后，切換到VB編輯器中，執(zhí)行【工程】丨【添加文件】命令，添加導(dǎo)出的窗體文件。這時(shí)，導(dǎo)入的文件將出現(xiàn)在VB編輯器的工程資源管理器中。在工程資源管理器中，右鍵用戶窗體并執(zhí)行【查看代碼】，將打開【代碼】編輯窗口。同時(shí)，也顯示了導(dǎo)入的用戶窗體的代碼。修改代碼以保證通過編譯。這樣Excel就可以通過類模塊VBACls間接地調(diào)用窗體。在VBE窗口中，導(dǎo)出用戶窗體時(shí)，同時(shí)也導(dǎo)出了窗體中的代碼。4．引用動(dòng)態(tài)鏈接庫(kù)代碼或用戶窗體在VB編輯器中編譯后，會(huì)產(chǎn)生一個(gè)Dll的文件。在ExceI中，就可以通過這個(gè)文件來調(diào)用其中的代碼或用戶窗體中。調(diào)用方法有如下幾種：例如，經(jīng)過編譯已生成了一個(gè)動(dòng)態(tài)鏈接庫(kù)文件VBAPrj.dll,其中有一個(gè)類模塊VBACIs，此類模塊有一個(gè)方法Test(rangeAsObject)在ExceI中調(diào)用該文件。通過變量引用在VBE窗口中，打開工程的ThisWorkBook代碼窗口，并執(zhí)行【工具】丨【引用】命令，引用動(dòng)態(tài)鏈接庫(kù)。調(diào)用代碼如下：DimVBAClsAsNewVBAPrj.VBAClsVBACIs.Test(Range)通過事件引用如果知道該動(dòng)態(tài)鏈接庫(kù)文件的位置，可以在ThisWorkBook代碼窗口以代碼形式引用，代碼如下：PrivateSubWorkbook_Open()OnErrorResumeNextMe.VBProject.References.AddFromFile"D:\VBAPrj.dll"EndSub通過引用函數(shù)引用將動(dòng)態(tài)鏈接庫(kù)文件拷貝到Excel文檔同一目錄下，可在ThisWorkBook代碼窗口中建立如下引用函數(shù)：PrivateFunctionGetProjectExcel()AsObjectOnErrorResumeNextDimVBAClsAsObjectSetVBACls=CreateObject("VBAPrj.VBACls")IfVBAClsIsNothingThenExitFunctionEndIfSetGetProjectExcel=VBAClsEndFunction然后以以下代碼形式