VBS如何设置Excel宏安全等级？

lcg823 · 发表于 2012-9-24 08:13:38

请问vbs 怎么设置Excel宏安全等级？
或者有其他方法也行？大家说说吧

乱码 · 发表于 2012-9-24 08:51:17

Set oExcel = CreateObject("Excel.Application")
strRegKey = "HKCU\Software\Microsoft\Office"&oExcel.Version&"\Excel\Security\AccessVBOM"
CreateObject("wscript.Shell").RegWrite strRegKey, 1, "REG_DWORD"

复制代码

lcg823 · 发表于 2012-9-24 13:40:10

本帖最后由 lcg823 于 2012-9-24 13:41 编辑

回复 2# 乱码
我的是win7、office2007，运行你的vbs 后，打开带宏的excle表格还是显示“安全警告宏已被禁用。”
是不是操作系统、Office版本不同，这个注册表键值的路径也不一样么？

怎样找到相应的键值注册表路径？

lcg823 · 发表于 2012-9-24 17:04:08

发现这个代码不错，直接绕过安全等级，运行宏。

Set app = WScript.CreateObject( "Excel.Application")
app.visible=true '如果没有此句将在后台运行，不可见
set fso = createobject("scripting.filesystemobject")
set wb = fso.getfile("book1.xls") 'book1.xls为带宏的表格
app.WorkBooks.Open wb

复制代码

'将该vbs文件和带有宏代码的相应Excel工作簿放在同一路径下，运行vbs就能直接运行宏

'win7 winXP下的office2003及2007都测试通过

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] VBS如何设置Excel宏安全等级？

浏览过的版块