如何设置VBA代码的密码?如何取消VBA代码的密码?

一时失言乱红尘 2021-11-05 16:36 604阅读 0赞

经常有网友问，用Access把软件开发好了，怎么样设置VBA代码的密码？以保护自己的代码不被同事修改。  
这里简单整理了一下。  
**设置VBA代码的密码及取消VBA代码的密码步骤如下**:  
1.打开任意一个窗体，进入设计视图，按工具栏“查看代码”按钮，如下图:  
![201803170925519318.jpg][]  
  
2.进入代码区再点工具栏“工具”按钮→“属性”，如下图:  
![201803170926023444.jpg][]  
  
3.点“保护”选项，将“查看时锁定工程”按钮打钩→在“查看工程属性的密码”设置你需要的密码，或者是不需要密码就把原有的密码删除即可，如下图:  
![201803170926146195.jpg][]

设置代码如下：

Dim a As String  
a = InputBox("请输入密码", "提示信息")  
If a = "设置的密码" Then  
Else  
MsgBox "密码不正确，请重试！", vbInformation, "提示"  
Call btnClose\_Click  
Cancel = True  
Exit Sub  
End If

将以上代码放置在主窗体的打开事件中即可.

进入【用户登录】窗体，输入用户名和密码，点“登录”按钮。核对【用户信息】表里用户名和密码，若都正确则打开下一个【用户界面】窗口。

![201803130925007826.png][]

Private Sub 登录按钮\_Enter()  
'验证用户和密码,登录系统  
If DCount("\[用户名\]", "用户信息", "\[用户名\]='" & Text0 & "'") = 0 Then  
MsgBox "请输入正确的用户名！"  
ElseIf DCount("\[用户密码\]", "用户信息", "\[用户密码\]='" & Text2 & "'") = 0 Then  
'Text1为用户名输入框  
MsgBox "请输入正确的用户密码！"  
ElseIf Nz(\[Text2\]) = Nz(DLookup("\[用户密码\]", "用户信息", "\[用户密码\]='" & Text2 & "'")) Then  
'Text2为密码输入框  
Me.Visible = False  
'隐藏窗体  
DoCmd.OpenForm "用户界面"  
'打开用户界面窗体  
Else  
'密码错误后的处理  
MsgBox "密码错误，请重输！"  
End If  
End Sub

转载于:https://www.cnblogs.com/ince/p/10777599.html

[201803170925519318.jpg]: /images/20211104/f9265776716a4ef4a257d463054c08e3.png
[201803170926023444.jpg]: /images/20211104/c006e51358a64eedb4200421049ebf2e.png
[201803170926146195.jpg]: /images/20211104/1b483f4e67fd4a70b35ce2b5d21129c6.png
[201803130925007826.png]: /images/20211104/f84ba7bb48c1431998a84e27e0b7e7da.png