如何锁定SHIFT 和如何开启 SHIFT键

likaiju

今天真开心，不妨再发个贴给大家，相信很多人用得到
SHIFT键可能对于一些刚入门的人来说是一个非常头大的问题，辛辛苦苦花了九牛二虎之力搞起来的权限被人家一按住SHIFT就马上变成裸体了，这里介绍个方法给大家，可以试试。
第一步：先建立一个模块，程试码直接复制下面的去贴上就行了，模块名字就叫SystemTools吧。
Option Compare Database
Function CloseBypassKey()

Dim p

On Error Resume Next

Set p = CurrentDb.CreateProperty _

("AllowBypassKey", DB_BOOLEAN, False)

CurrentDb.Properties.Append p

CurrentDb.Properties("AllowBypassKey") = False
End Function

Function OpenBypassKey()

Dim p

On Error Resume Next

Set p = CurrentDb.CreateProperty _


("AllowBypassKey", DB_BOOLEAN, True)

CurrentDb.Properties.Append p

CurrentDb.Properties("AllowBypassKey") = True
End Function

Function UpdateAppIconPath()

Dim currPath, srcPath, iconPath

iconPath = CurrentDb.Properties("AppIcon")

srcPath = Left(iconPath, InStrRev(iconPath, "\"))

currPath = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))

If currPath <> srcPath Then

srcPath = Mid(iconPath, InStrRev(iconPath, "\") + 1)

CurrentDb.Properties("AppIcon") = currPath & srcPath

Application.RefreshTitleBar

End If
End Function

Function SetAllowDesignChanges(b As Boolean)

Dim obj As AccessObject

For Each obj In Application.CurrentProject.AllForms

'MsgBox obj.Name, , Forms(obj.Name).Caption

If obj.IsLoaded Then

DoCmd.CLOSE acForm, obj.Name

End If



DoCmd.OpenForm obj.Name, acDesign

Forms(obj.Name).AllowDesignChanges = b

DoCmd.Save acForm, obj.Name

DoCmd.CLOSE acForm, obj.Name

Next
End Function
第二步：建立宏（档案名叫SQACCESS吧）

宏名	操作	函数名称
forbid SHIFT	RunCode	CloseBypassKey ()
allow SHIFT	RunCode	OpenBypassKey ()
turn on start-up	RunCommand	StartupProperties

第三步：建立窗体如图一（下面的窗体权限设定为自己才打得开哦，不允许别人打开的）

1、
禁止使用SHIFT的程式码是运行宏：forbid SHIFT
2、
允许使用SHIFT的程式码是运行宏：allow SHIFT
3、
打开启动交谈窗的程式码是运行宏：turn on start-up

第四步：打开启动交谈窗，作如图二设置（注意看勾选的地方）


第五步：您可以点击那个禁止按钮试试了
**警告**
那个点击禁卡SHIFT的窗体一定要打得开哦，不然你就惨了，你做了几个月的数据库可能会因为再也没办法用上SHIFT而报废，无法打开数据库窗口哦，到时候可别骂我。

ycxchen

鼓励一下！

chaojianan

支持楼主，谢谢分享。

coolleaf

那怎么弄才能让自己才能打开那个窗，别人进去后打不开呢。