[分享]ACCESS2010 做成 2003菜单

wx0000888

菜单制作要求
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


上附件：

打开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，然后运行，再打开文件就不会了弹出提示了。
上工具

zpy2

谢谢分享！

roych

谢谢分享

fl8081

谢谢分享

MMLSHF

谢谢分享！

access新新新手

谢谢分享

yanwei82123300

谢谢分享！

wh133@163.com

研究一下先

wh133@163.com

在2016版的Access上好像运行不太正常？

harrysh

学习了，谢谢！