如何设置VBA代码的密码?如何取消VBA代码的密码?
经常有网友问,用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