成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

封裝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,以及編寫代碼調用它。

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,并在關閉時反注冊DLL。

4. 編寫調用DLL的代碼

右擊"Excel對象",選擇"插入"→"模塊",在模塊中輸入以下代碼:

```

Sub Test()

Dim sa As New AddInfo

End Sub

```

這段代碼用于調用DLL中的函數(shù),實現(xiàn)相應的功能。在Sheet1工作表中運行宏后,可以看到效果。

5. 自動運行宏

最后,將該過程添加到"ThisWorkBook"的啟動菜單中,即可實現(xiàn)在打開文檔時自動運行宏的目的。

通過封裝Excel VBA代碼成DLL,并在Excel VBA環(huán)境中引用和調用該DLL,我們可以更好地保護代碼的安全性,并實現(xiàn)更復雜的功能。希望本文對你有所幫助!

標簽: