vba - 如何屏蔽excel宏代码

Question

我将以下内容存储在 excel 宏中:-

Sub Sales()

Dim StrSQl As String

Con = "Provider=IBMDA400;Data Source=192.168.2.2;User Id=boss;Password=1we56"

Set Db = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
Db.connectionSTring = Con
Db.Open
StrSQl = "select myuc, sum (myac) as Amount from myabc.myqwerty where mydt >= 20100101 and mydt <= 20100831 group by (mycl)"
rs.Open StrSQl, Db, 3, 3
Sheet1.Cells(10, 1).CopyFromRecordset rs
rs.Close
Set rs = Nothing
Set cn = Nothing
End Sub

我希望屏蔽上述用户 ID 和密码，即。 User Id=****;Password=*****作为安全的一部分。

那可能吗？

Answer 1

无论用户是否需要输入密码，您最安全的选择是保护您的整个宏代码

进入 Visual Basic 编辑器 (VBE)

在 Project Explorer 窗口中选择您要保护的项目

右键单击然后 ....VBAProject 属性

单击“保护”选项卡，然后选中“锁定项目以防止查看”并验证您的密码

保存您的工作簿，将其关闭并重新打开以建立保护

没有写一个 COM addin 这是安全的，因为您的代码会得到。请注意，有些产品会破解 VBA 代码