Office中国论坛/Access中国论坛

标题: 如何在Access中屏蔽Shift键? [打印本页]

作者: yuankeh8 时间: 2003-7-7 21:39
标题: 如何在Access中屏蔽Shift键?
有一同事问我,如何在Access中屏蔽Shift键,使之不能通过按住Shift键来打开数据库文件(*.mdb)。记得前些日子在看贴时看到这一贴子，可现在一直找不到了，请哪位大哥指点指点。多谢！

作者: 徐阿鹏 时间: 2003-7-7 23:00
禁止用shift键
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为恢复

作者: 徐阿鹏 时间: 2003-7-7 23:00
我没用过，你试试看

作者: nyyhyhd 时间: 2003-7-8 23:15
请问上面一段很长的代码应该在哪里写？

作者: jm528 时间: 2003-7-9 00:38
各位，按住Shift键来打开数据库文件(*.mdb),具体怎么做，这有何用？我不在Access中屏蔽Shift键会有什么影响？

作者: 徐阿鹏 时间: 2003-7-9 02:50
在模块中写，在窗体中调用，，jm528，在。。。。。。。。。。慢慢你就会知道了：）

作者: sf 时间: 2003-9-3 16:00
不防用做好的专用程序对你的数据库禁用SHIFT，很好用的。在下载区有。

作者: liuyu0101 时间: 2006-3-2 03:38
屏蔽掉也没有多大作用，因为现在解shift屏蔽的软件很多。我就下了一个，在公司里，如果谁要的话我可以考给他。谁能彻底封掉shift键告诉大家。

谢谢！！！

作者: wang1950317 时间: 2006-3-2 04:32
请liuyu0101大侠发一个上来！谢谢！

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