Function CheckUserPasswordInGroup(UserName As String,_
　　　　　　　 oldPassword As String, newPassword As String) As Boolean
On Error GoTo ChkErr
　　Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boolean
　　CheckUserPasswordInGroup = False
　　Found = False
　　Set wk = DBEngine.CreateWorkspace("", "Admin", "")
　　'//要特别注意上面一句，必须使用拥有数据库管理权限的用户名和密码打开工作区！
　　
　　'//下面一段是查找用户名是否存在，如果存在，修改密码，不存在出错报告。
　　For i = 0 To wk.Users.Count - 1
　　　　If wk.Users(i).Name = UserName Then
　　　　　　Set Ur = wk.Users(i)
　　　　　　Found = True
　　　　　　Ur.newPassword oldPassword, newPassword
　　　　　　Exit For
　　　　End If
　　Next i
　　
　　If Not Found Then
　　　　MsgBox "'" & UserName & "' 不是一个有效的用户名！",_
　　　　　　　　　 vbExclamation, "艾赛思应用网"
　　　　CheckUserPasswordInGroup = False
　　　　Exit Function
　　End If
　　CheckUserPasswordInGroup = True
　　Exit Function
ChkErr:
　　MsgBox "'" & UserName & "' 用户密码修改失败！",_
　　　　　　　　 vbExclamation, "艾赛思应用网"
　　CheckUserPasswordInGroup = False
End Function

(责任编辑：admin)

• ·ACCESS丢失MDW,还能还原用户与用户组及
• ·【技巧】如何让Access更加安全
• ·Access数据库安全中常见问题汇总
• ·数据库的安全为什么要侧重于网络系统
• ·建立Access数据库的安全门
• ·如何能通过窗体访问表，但不能直接读取
• ·Access 2007 中的用户级安全
• ·如何用二进制方式编辑 MDB 使 ACCESS
• ·Access限制软件30天试用
• ·Access处理加了密码的MDB数据库文件
• ·EXE修改安全级别并启动ACCESS项目
• ·处理加了密码的MDB数据库文件
• ·Access如何解除VBAProject 的口令保护
• ·保护Access 2000数据库的安全
• ·Access数据库安全五招
• ·Access 数据库安全攻防策略