Office中国论坛/Access中国论坛

标题: 如何启动或禁止(禁用)shift键锁定(shift键解锁) [打印本页]

作者: sagemeyou 时间: 2009-11-5 16:26
标题: 如何启动或禁止(禁用)shift键锁定(shift键解锁)

AllowBypassKey 属性
请参阅示例特性使用 AllowBypassKey 属性可以指定是否允许用 Shift 键来忽略启动属性和 AutoExec 宏。例如，将 AllowBypassKey 属性设为 False 可避免用户忽略启动属性和 AutoExec 宏。
设置
AllowBypassKey 属性使用以下设置：
设置说明
True 允许用户使用 Shift 忽略启动属性和 AutoExec 宏。
False 禁止用户使用 Shift 忽略启动属性和 AutoExec 宏。

可以使用宏或者 Visual Basic 设置该属性。
若要使用宏或 Visual Basic 设置 AllowBypassKey 属性，必须使用以下方法创建该属性：
在 Microsoft Access 数据库 (.mdb) 中，可以通过使用 CreateProperty 方法添加该属性，并将其追加到 Database 对象的 Properties 集合中。
在 Microsoft Access 项目 (.adp) 中，可以通过使用 Add 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。
说明
调试应用程序时,应确保 AllowBypassKey 属性设为 True。
该属性的设置仅在下一次打开应用程序数据库时才会生效。
示例
下面的示例显示了一个名为 SetBypassProperty 的过程，该过程传递要设置的属性的名称、数据类型及所需设置。一般用途过程 ChangeProperty 将尝试设置 AllowBypassKey 属性，如果找不到该属性，则用 CreateProperty 方法将其追加到 Properties 集合中。这是必要的步骤，因为只有在添加之后，该属性才出现在 Properties 集合中。

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
'--------------如果需要解开shift锁定可以用以下代码：
'ChangeProperty "AllowBypassKey", DB_Boolean, true
End Sub
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

很多人问我，那有一个 MDB / MDE 文件已经被锁定 Shift 怎么办？
其实很简单，你只要建立一个对这个 MDB / MDE 得 APPLICATION 引用即可用这个 APPLICATION 来执行任何属性设置。

设置只有管理员才能改变AllowBypassKey属性
作者：tmtony
在ACCESS的帮助文件中说明CreateProperty 方法的语法：

Set property = object.CreateProperty (name, type, value, DDL)

其实最后一个参数是这个解释的（部分描述）：
DDL 可选. 一个变量(逻辑子类型) 指定这个属性是否为DDL对象. 缺少值为False. 如果设置为TRUE，除非他有 dbSecWriteDef 权限，用户就不能改变或删除这个属性
CreateProperty 是用来创建或设置 AllowBypassKey 属性如果这个属性设为TRUE, 那就可以禁用户近SHIFT键来禁止启动属性和AutoExec 宏. 然而，ACCESS帮助中提供的例子没有使用第四个 DDL 参数. 这意味着任何人都可以打开数据据然后用程序复位AllowBypassKey 属性.
所以，为了限制普通用户去改变这个属性，所以我们设置第四个参数为TRUE 。

作者: star20038888 时间: 2009-11-7 01:31
这个我有用，可我是新手~看不懂呀~

作者: chaojianan 时间: 2009-11-30 20:04
谢谢分享。

作者: 荣宸 时间: 2012-2-24 13:54
好东西，有用！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)