Office中国论坛/Access中国论坛

标题: [分享]ACCESS2010 做成 2003菜单 [打印本页]

作者: wx0000888 时间: 2014-8-11 23:29
标题: [分享]ACCESS2010 做成 2003菜单
本帖最后由 wx0000888 于 2014-8-11 23:42 编辑

菜单制作要求
1，系统必须同时装ACCESS2007以上和 ACCESS2003（2000也可）

2，必须是首先用ACCESS2000或ACCESS2003新建的数据库，再更改后缀“mdb”为“ACCDB”文件。
   这样做是因为ACCESS2010版本功能区和工具栏选项（也就是老版本的启动）选项中没有菜单栏项目，只有功能区和快捷菜单栏了，但用老版本改后缀名后，再以 ACCESS2007 以上打开方式打开然后保存的文件，还保留老版本 菜单栏 这个选项，也有新版功能区名称 的特点。那么既然有菜单栏了，就可制作自定义菜单再加入到菜单栏选项中了，最终制作的效果直接屏蔽了功能区，如图一：
'################################################################

'                      自定义菜单

' 功能:这个菜单模块的主要功能是在系统启动后，能够运行自定义菜单。

' 优点:
'    1 隐藏ACCESS2007版本及以上的功能区,也就是用VBA代替手动在启动选项里选择自定义菜单。
' 缺点:
'    1 运行 ResetMenuBar 回复功能区程序仍然不能回复ACCESS2007版本及以上的功能区界面；
' 2 2007以上背景无图片

' 制作: wx0000888 年月:2014-08-08
' 版本:适合版本为ACCESS2000，2003，2007，2010

上附件：[attach]54391[/attach]

打开ACCESS2007总是会有弹出警示信息和需要手动去开启宏运行许可。再加个工具吧。
'vbs文件

dim r
dim regPath
dim Type_Name
dim Key_Name
dim Key_Data
Dim ref '申明引用类对象
dim acc

Set r=WScript.CreateObject("Wscript.Shell")
'Set r=CreateObject("Wscript.Shell")

regPath="HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\"
Type_Name="REG_DWORD"
Key_Name="Level"
Key_Data=1

r.regWrite regPath&Key_Name,Key_Data,Type_Name
msgbox "成功修改ACCESS2010安全级别"

Key_Name="VBAWarnings"
Key_Data=1
r.regWrite regPath&Key_Name,Key_Data,Type_Name
msgbox "成功修改ACCESS2010警告提示级别"       'Microsoft Office Access安全声明
把以上代码复制到文本文件，在更改后缀为 vbs，然后运行，再打开文件就不会了弹出提示了。
上工具[attach]54391[/attach]

[attach]54391[/attach]

作者: zpy2 时间: 2014-8-12 05:38
谢谢分享！

作者: roych 时间: 2014-8-12 08:43
谢谢分享

作者: fl8081 时间: 2014-8-12 15:43
谢谢分享

作者: MMLSHF 时间: 2015-4-30 15:49
谢谢分享！

作者: access新新新手 时间: 2015-12-8 19:23
谢谢分享

作者: yanwei82123300 时间: 2017-3-24 14:15
谢谢分享！

作者: wh133@163.com 时间: 2017-12-31 20:34
研究一下先

作者: wh133@163.com 时间: 2017-12-31 20:37
在2016版的Access上好像运行不太正常？

作者: harrysh 时间: 2018-3-10 13:19
学习了，谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)