如何不通过Excel中的“宏安全性设置”来设置宏安全性? - ｅ问ｅ答 - Excel 技...

52EXCEL 2011-03-28

展开全文

★ 年度积分冠军赛实时播报 ★

[综合应用] 如何不通过Excel中的“宏安全性设置”来设置宏安全性?

宏安全性设置, Excel

网站名称: Excel技巧网|Excel 2010新领地

署名作者: xyh9999

本文来自:

引用作品:

适用版本: 2010 2007 2003以前版本非office软件

语言环境: 简体中文 (頁麵右上角簡繁轉換)

内容简介:

文章地址: http://www./thread-10800-1-1-0.html

学习方法: 掌握Excel技巧的关键是动手操作|下载≠知识

Q:如何不通过Excel中的“宏安全性设置”来设置宏安全性?
A:方法如下

[Excel2003解法]
把以下内容用记事本写在Lqc2003.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2003来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。

Dim WSH
Set WSH = CreateObject("Wscript.Shell")
regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & "11.0" & "\Excel\Security\Level"
regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & "11.0" & "\Excel\Security\AccessVBOM"
ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
Set WSH = Nothing

复制公式或代码

[Excel2010解法]
把以下内容用记事本写在Lqc2010.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2010来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。

Dim WSH
Set WSH = CreateObject("Wscript.Shell")
regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 14.0 & "\Excel\Security\VBAWarnings"
regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 14.0 & "\Excel\Security\AccessVBOM"
ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
Set WSH = Nothing

复制公式或代码

[Excel2007解法]
把以下内容用记事本写在Lqc2007.vbs文件(注意:扩展名必须为.vbs)中,直接双击该文件,对Excel2007来说就没问题了。
注意：ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")中VBA安全级别值对应：低。若为ret=WSH.RegWrite(regStr1, "4", "REG_DWORD")安全级别值对应：非常高。

Dim WSH
Set WSH = CreateObject("Wscript.Shell")
regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 12.0 & "\Excel\Security\VBAWarnings"
regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & 12.0 & "\Excel\Security\AccessVBOM"
ret=WSH.RegWrite(regStr1, "1", "REG_DWORD")'VBA安全级别值1-4分别对应：低，中，高，非常高
ret=WSH.RegWrite(regStr2, "1", "REG_DWORD")
Set WSH = Nothing

复制公式或代码

本主题由 rongjun 于 2010-8-31 10:48 移动

Excel疑难千寻千解丛书卓然登场！[点击了解][样章下载]
每一个疑难案例，均源于网友现实的疑惑与困扰。
每一个解决方案，皆来自高手精妙的思路及讲解。
ExceTip.net原创出品，多位微软全球最有价值专家、版主力作！

网络购书

当当网卓越网淘宝网互动网豆瓣网购物积分奖励入口网址

回复引用

订阅收藏分享评分 TOP

amulee

版主

Rank: 18

2楼

发表于 2010-12-3 10:16 | 只看该作者 | 发短消息 | 复制标题和地址

★ 发表主题（含提问）争做英雄单日最大奖项重磅献礼 ★

版本号由Application属性代替即可

Dim WSH
Set WSH = CreateObject("Wscript.Shell")
regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\VBAWarnings"
regStr2 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM"
ret = WSH.RegWrite(regStr1, "1", "REG_DWORD") 'VBA安全级别值1-4分别对应：低，中，高，非常高
ret = WSH.RegWrite(regStr2, "1", "REG_DWORD")
Set WSH = Nothing

复制公式或代码

回复引用

站内采录编号: 103383 TOP

xyh9999

初级三

Rank: 4

3楼

发表于 2010-12-3 20:12 | 只看该作者 | 发短消息 | 复制标题和地址

★ 您了解在技术社区求助的智慧吗？★

版本号由Application属性代替即可Dim WSH
Set WSH = CreateObject("Wscript.Shell")
regStr1 = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\VBAWarnings"
regStr2 ...
amulee 发表于 2010-12-3 10:16

对于既装了office的03版又装了10或07版的系统中,Application.Version始终只显示当前默认的一个版本值,哈哈。