国产成人毛片视频|星空传媒久草视频|欧美激情草久视频|久久久久女女|久操超碰在线播放|亚洲强奸一区二区|五月天丁香社区在线|色婷婷成人丁香网|午夜欧美6666|纯肉无码91视频

封裝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)更復雜的功能。希望本文對你有所幫助!

標簽: