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

Posted 2021-10-28 ince

      经常有网友问，用Access把软件开发好了，怎么样设置VBA代码的密码？以保护自己的代码不被同事修改。
这里简单整理了一下。
设置VBA代码的密码及取消VBA代码的密码步骤如下:
1.打开任意一个窗体，进入设计视图，按工具栏“查看代码”按钮，如下图:


2.进入代码区再点工具栏“工具”按钮→“属性”，如下图:


3.点“保护”选项，将“查看时锁定工程”按钮打钩→在“查看工程属性的密码”设置你需要的密码，或者是不需要密码就把原有的密码删除即可，如下图:

 

 

 

 

设置代码如下：

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

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

 

 

 

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

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