如何屏蔽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

我想掩盖上面的用户名和密码即.User Id=****;Password=*****作为安全的一部分.

那可能吗？

Answer 1

您最安全的选项 - 无论用户是否需要输入密码 - 都是为了保护您的整个宏代码

• 进入Visual Basic编辑器(VBE)
• 在Project Explorer窗口中选择要保护的项目
• 正确的cliick然后.... VBAProject属性
• 单击"保护"选项卡,然后选中"从查看中锁定项目"并验证密码
• 保存工作簿,关闭它并重新打开它以建立保护

如果没有编写COM插件,这将是安全的,因为您的代码将获得.请注意,有些产品可以破解 VBA代码