封裝Excel VBA代碼:Excel VBA代碼引用DLL
通過將Excel VBA代碼封裝成DLL,可有效防止代碼被非法查看。在上一節(jié)中,我們創(chuàng)建了一個用VBA編寫的DLL,并成功生成了"feifeidown.dll"文件。本節(jié),我們將學習如何在Excel
通過將Excel VBA代碼封裝成DLL,可有效防止代碼被非法查看。在上一節(jié)中,我們創(chuàng)建了一個用VBA編寫的DLL,并成功生成了"feifeidown.dll"文件。本節(jié),我們將學習如何在Excel VBA環(huán)境中引用該DLL,以及編寫代碼調(diào)用它。
1. 引用Dll文件
首先,打開Excel 2007并按下鍵盤組合鍵"Alt F11"進入VBA編程環(huán)境。然后點擊"工具"→"引用"選項,在打開的"引用"窗口中,點擊"瀏覽"按鈕。
2. 添加引用
在彈出的"瀏覽文件"窗口中,找到上一節(jié)生成的"feifeidown.dll"文件,點擊"確定"進行添加。返回"引用"窗口后,確保勾選"feifeidown"選項,然后點擊"確定"按鈕完成引用的添加。
3. 注冊和反注冊DLL
雙擊"ThisWorkBook"對象,在其中選擇"Open"事件和"BeforeClose"事件,并輸入以下代碼:
```
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shell "Regsvr32 /u/s " (34) "feifeidown.dll" (34), vbHide
End Sub
Private Sub Workbook_Open()
Shell "Regsvr32 /s " (34) "feifeidown.dll" (34), vbHide
End Sub
```
以上代碼用于在文檔打開時注冊DLL,并在關(guān)閉時反注冊DLL。
4. 編寫調(diào)用DLL的代碼
右擊"Excel對象",選擇"插入"→"模塊",在模塊中輸入以下代碼:
```
Sub Test()
Dim sa As New AddInfo
End Sub
```
這段代碼用于調(diào)用DLL中的函數(shù),實現(xiàn)相應(yīng)的功能。在Sheet1工作表中運行宏后,可以看到效果。
5. 自動運行宏
最后,將該過程添加到"ThisWorkBook"的啟動菜單中,即可實現(xiàn)在打開文檔時自動運行宏的目的。
通過封裝Excel VBA代碼成DLL,并在Excel VBA環(huán)境中引用和調(diào)用該DLL,我們可以更好地保護代碼的安全性,并實現(xiàn)更復雜的功能。希望本文對你有所幫助!