我的是2003，运行不了这个。好像还不太一样，我是想不光禁止一个工具栏，还有数据库窗口、菜单栏等。我现在用“启动”命令，把能取消的都取消，然后禁止按shift键启动，就是让allowbypasskey属性为假。代码是别人教的：
如何禁止用户使用Shift键跳过启动窗体
来源：网络
适用版本：Access 97、Access 2000、Access 2002、Access 2003
【问题详述】
如果程序设置了启动窗体，程序在打开时都会自动进入启动窗体界面，而不会显示Access的数据库窗体，但有些好奇的用户可能知道按住Shift键来打开程序，然后进入到数据库窗体，修改表或其他Access对象的内容，从而导致程序出错或者数据丢失，有什么办法禁止用户使用Shift键跳过启动窗体呢？
【问题处理】
可以通过设置“AllowBypassKey”属性来达到禁止使用Shift键的目的，而在Access数据库和Access项目中禁止Shift键需要使用不同的方法。
1．在Access数据库（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 ' 如果错误是数据库没有这个属性
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropvalue) ' 创建新的属性,并设置它的默认值
dbs.Properties.Append prp ' 将新的属性对象绑定到数据库
Resume Next ' 继续执行后面的代码
Else
ChangeProperty = False ' 如果是其它错误,则函数值返回假
Resume Change_Bye ' 转到函数退出处理
End If
End Function
然后调用这个通用函数来设置“AllowBypassKey”属性值为False，代码如下。
ChangeProperty "AllowBypassKey", 1, False 'False为禁止Shift键，True为恢复
如果想允许使用Shift键，则同样设置ChangeProperty "AllowBypassKey", 1, True就可以了。
