时间：2003-12-12 21:17 来源：Access中国 作者：tmtony 阅读：次

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer 
　　Dim dbs As Object, prp As Variant 
　　Const conPropNotFoundError = 3270 

　　Set dbs = CurrentDb 
　　On Error GoTo Change_Err 
　　dbs.Properties(strPropName) = varPropvalue 
　　ChangeProperty = True 

Change_Bye: 
　　Exit Function 

Change_Err: 
　　If Err = conPropNotFoundError Then　　' Property not found. 
　　　　Set prp = dbs.CreateProperty(strPropName, _ 
　　　　　　varPropType, varPropvalue) 
　　　　dbs.Properties.Append prp 
　　　　Resume Next 
　　Else 
　　　　' Unknown error. 
　　　　ChangeProperty = False 
　　　　Resume Change_Bye 
　　End If 
End Function 

调用方法： 
ChangeProperty "AllowBypassKey", 1, False　'false为禁止SHIFT键，TRUE为恢复

注意：
如果需要防止别人使用改变属性的方法来打开，还需在权限组里禁止管理员对属性的设置

(责任编辑：admin)

上一篇：加密后台数据库的方法
下一篇：在Access中实现密码管理的另一种方式

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