时间：2003-12-20 23:06 来源：第十空间 作者：harsonli… 阅读：次

Function CreatePassWordDB(strPathName As String, strPsd As String) As Boolean
On Error GoTo Exit_ERR
Dim wrkDefault As Workspace
Dim NewDB As Database

CreatePassWordDB = False
Set wrkDefault = DBEngine.Workspaces(0)
If Dir(strPathName) <> "" Then Kill strPathName
Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral & ";pwd=" & strPsd & "")

NewDB.Close
Set NewDB = Nothing

CreatePassWordDB = True
Exit Function

Exit_ERR:
MsgBox "备份失败！" & vbCrLf & vbCrLf & Err.Description, vbExclamation
Exit Function
End Function

(责任编辑：admin)

上一篇：设置只有管理员才能改变AllowBypassKey属性
下一篇：如何不通过设置工程密码锁定VBA代码?

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