网友问题:网站上有好多启用和禁用当前数据库的shift属性的例子 但是缺少了其他数据库的例子 

 这里普及下如何启用和禁用其他数据库的shift键

（下面例子把路径修改后 放入模块 按f5运行 即可测试）

Function Shift()
  On Error Resume Next
  Dim p As Object
  Dim d As Object
  Set d = OpenDatabase("C:\Users\yy\Desktop\XXX\Main.mde") '这里填入需要设置的数据库路径 
   Set p = d.CreateProperty _
                   ("AllowBypassKey", DB_BOOLEAN, False)
   d.Properties.Append p
   d.Properties("AllowBypassKey") = True 'true代表 启用 false 代表禁用
End Function