如何在Access中屏蔽Shift键?

yuankeh8

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

徐阿鹏

禁止用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为恢复

徐阿鹏

我没用过，你试试看

nyyhyhd

请问上面一段很长的代码应该在哪里写？

jm528

各位，按住Shift键来打开数据库文件(*.mdb),具体怎么做，这有何用？我不在Access中屏蔽Shift键会有什么影响？

徐阿鹏

在模块中写，在窗体中调用，，jm528，在。。。。。。。。。。慢慢你就会知道了：）

sf

不防用做好的专用程序对你的数据库禁用SHIFT，很好用的。在下载区有。

liuyu0101

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

谢谢！！！

wang1950317

请liuyu0101大侠发一个上来！谢谢！