这是第二个版本修改了F11漏洞(第一次版点击)，请各位帮手测试一下，是否还有漏洞。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then

DoCmd.SelectObject acTable, "a", True

DoCmd.RunCommand acCmdWindowHide
End If
End Sub

 
这可以禁用F11打开，你可以测试一下。这个非常好，大家帮手测试一下是否还存在漏洞。

显示导航菜单密码为 : admin

附件:

点击这里下载