绕过宏安全检查最简单方法

xiamen168 · 发表于 2012-6-11 12:50

Dim objExcel, strPath, strFile, strScriptName
strPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
strScriptName = LCase(WScript.ScriptName)
If Right(strScriptName, 8) = ".xls.vbs" Then
strFile = Replace(strScriptName, ".vbs", "")
Else
strFile = Replace(strScriptName, ".vbs", ".xls")
End If
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open strPath & strFile

复制代码

【开发语言】
VB Script
【功能简介】
通过使用VBS代码，就可以跳过EXCEL安全性检查，直接运行某EXCEL里的VBA代码。
【使用情景】
1.适合普通OA办公人员(俗称菜鸟^-^)使用VBA软件时。
2.适合安全性要求较高公司开发专用VBA软件时（可保留原先的宏安全性设置）

工具详见下面
www.toolssoft.com/down.asp?filename=upfile/file_2012052821554866900.rar&id=24
[OA][VB Script]VBA宏被禁用自动强制解除工具

xiamen168 · 发表于 2012-6-11 12:56

Dim objExcel, strPath, strFile, strScriptName
strPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
strScriptName = LCase(WScript.ScriptName)
If Right(strScriptName, 8) = ".xls.vbs" Then
strFile = Replace(strScriptName, ".vbs", "")
Else
strFile = Replace(strScriptName, ".vbs", ".xls")
End If
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open strPath & strFile

复制代码

【开发语言】
VB Script
【功能简介】
通过使用VBS代码，就可以跳过EXCEL安全性检查，直接运行某EXCEL里的VBA代码。
【使用情景】
1.适合普通OA办公人员(俗称菜鸟^-^)使用VBA软件时。
2.适合安全性要求较高公司开发专用VBA软件时（可保留原先的宏安全性设置）

工具详见下面
http://www.toolssoft.com/viewprod.asp?pid=24&cid=1
[OA][VB Script]VBA宏被禁用自动强制解除工具

xiamen168 · 发表于 2012-6-11 13:05

绕过宏安全检查最简单方法
虽然是excel的例子，改一改也可以用在word应用上

http://club.excelhome.net/thread-879623-1-1.html

xiamen168 · 发表于 2012-6-11 13:07

绕过宏安全检查最简单方法
虽然是excel的例子，改一改也可以用在PPT应用上

http://club.excelhome.net/thread-879623-1-1.html

xiamen168 · 发表于 2012-6-11 13:09

绕过宏安全检查最简单方法
虽然是excel的例子，改一改也可以用在ACCESS应用上

http://club.excelhome.net/thread-879623-1-1.html

xiamen168 · 发表于 2012-6-11 13:36

操作失误抱歉，请删除

ahhfdw · 发表于 2012-6-11 14:57

这个实用，我来试试

xiamen168 · 发表于 2012-6-11 14:59

ahhfdw 发表于 2012-6-11 14:57
这个实用，我来试试

谢谢使用，得到鼓励

xsy我可以很好 · 发表于 2012-6-11 16:30

为什么一运行就强制关机{:soso_e117:}

xiamen168 · 发表于 2012-6-11 17:21

xsy我可以很好发表于 2012-6-11 16:30
为什么一运行就强制关机

不会呀，你是否把这些代码保存成xxx.vbs,然后调用xxx.xls?
绝对没有关机的代码呀

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

[分享] 绕过宏安全检查最简单方法

评分