[推荐] 我说“启用宏”，就得启用宏，管你什么安全级

BobPan

在论坛闲逛，发现大家对用户选择“启用宏”、“禁用宏”特另头疼，下面提供一个方法：

---------------------------------------------------------------------------------------------------------------------------------------------------

12/7更新

应网友 只观看 的要求，不想每次更改工作薄的路径，特更新代码。

此脚本自动寻找脚本目录中的一个工作薄并打开，所以，以后只要将想要强制开启宏的工作薄放在此文件夹中即可完成
注意：
1。脚本只寻找一个工作薄，所以建议只在此目录放置一个工作薄
2。如果想要打开其它Excel文件，请更改代码粗体处为此Excel文件的后缀（如：.xla）

代码： 8COiGF9u.rar (4.26 KB, 下载次数: 7414)

2007-12-3 11:55 上传

点击文件名下载附件
[推荐] 我说“启用宏”，就得启用宏，管你什么安全级

VB版本：

'编绎下面为exe后创建快捷方式(exe + 空格 + 文件[若路径含空格，请使用引号])：D:\Project1.exe "D:\Macro Book.xls"
'如果不想要提示，请删除代码是MsgBox语句

Sub Main()

Dim objXL As Object

If LenB(Command) > 0 Then

On Error GoTo Eixtxl
    Set objXL = CreateObject("Excel.Application")
   
    objXL.Workbooks.Open Command
   
    objXL.Visible = True
   
    Set objXL = Nothing

    Exit Sub

End If

Eixtxl:
objXL.Quit
Set objXL = Nothing
MsgBox "您未指定文件路径或指定的文件路径不存在，请检查并重新指定", vbInformation, "文件路径错误"

End Sub

注：建议还是给用户应有的权利，让用户来选择是否启用宏
       请不要用此方法制作病毒

[此贴子已经被作者于2007-12-24 8:35:06编辑过]

guanmy

先收藏一下

[此贴子已经被作者于2007-12-3 11:56:02编辑过]

sunsoncheng

显示没有在本机执行脚本宿主的权限

乍办?

lkyzhs

ytyt谢谢，，，，，，，，，，

BobPan

QUOTE:

以下是引用sunsoncheng在2007-12-3 12:26:57的发言：

显示没有在本机执行脚本宿主的权限

乍办?

多谢提醒，另有一种写法，已上传，请参考顶楼！

╰⊙∧⊙╯

QUOTE:

以下是引用BobPan在2007-12-3 11:53:19的发言：

在论坛闲逛，发现大家对用户选择“启用宏”、“禁用宏”特另头疼，下面提供一个方法：

参考档：（解压到D盘）

注：建议还是给用户应有的权利，让用户来选择是否启用宏
       请不要用此方法制作病毒

附件文件运行后，在2007中没反应？

nokia4321

也没更改宏的安全性啊。

BobPan

QUOTE:

以下是引用╰⊙∧⊙╯在2007-12-3 13:48:00的发言：

附件文件运行后，在2007中没反应？

不好意思，2007还没测试过，不过应该可以实现，此原理是通过建立一个Excel程序，然后打开文件，最后显示Excel程序，以达到目的！

烦请再帮助测试，谢谢 ！

[此贴子已经被作者于2007-12-3 13:53:14编辑过]

nokia4321

哦，能改变。

BobPan

QUOTE:

以下是引用nokia4321在2007-12-3 13:51:25的发言：

也没更改宏的安全性啊。

此方法不改变计算机任何设置！