2010里怎么取消开表时按SHIFT键

wangyi317633

如题，不想让别人按SHIFT打开！

foxsir

又学习到了。

fekin

{:soso_e189:}

fekin

{:soso_e179:}

ast741

3楼高人啊~~~

xjb_test

谢谢高手的好贴

zzwxm98

回复本帖可获得 5 ￥金钱奖励，这样算吗

wangyi317633

roych 发表于 2012-5-1 15:11
关于禁用Shift键，网络上有相当多的实例，不过既然你问到了，我也就稍稍修改下写个例子吧。
新建一个2007或 ...

thanks

roych

关于禁用Shift键，网络上有相当多的实例，不过既然你问到了，我也就稍稍修改下写个例子吧。
新建一个2007或2010版的数据库，插入一个模块，把下面的代码贴进去：

1. Sub SetBypassProperty()
   
2. Const DB_Boolean As Long = 1
   
3.     ChangeProperty "D:\俺滴数据库.accdb", "AllowBypassKey", DB_Boolean, False    '把路径改为您的数据库路径。需要启用Shift键时则把最后一个参数改为True。
   
4. End Sub
   
5. 
   
6. '以下为调用函数
   
7. '*******************************************************************************************
   
8. Function ChangeProperty(dbPath As String, strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
   
9.     Dim dbs As Object, prp As Variant
   
10.     Const conPropNotFoundError = 3270
    
11. '打开指定位置的数据库，并设置属性。
    
12.     Set dbs = DAO.OpenDatabase(dbPath)
    
13.     On Error GoTo Change_Err
    
14.     dbs.Properties(strPropName) = varPropValue
    
15.     ChangeProperty = True
    
16. 
    
17. Change_Bye:
    
18.     Exit Function
    
19. '如果该属性不存在则创建。
    
20. Change_Err:
    
21.     If Err = conPropNotFoundError Then   
    
22.         Set prp = dbs.CreateProperty(strPropName, _
    
23.             varPropType, varPropValue)
    
24.         dbs.Properties.Append prp
    
25.         Resume Next
    
26.     Else
    
27.         ' 未知错误，跳转到错误处理
    
28.         ChangeProperty = False
    
29.         Resume Change_Bye
    
30.     End If
    
31. End Function
    

复制代码

保存后按F5执行即可。

wangyi317633

高手帮帮忙