强制启用宏

强制启用宏,跳过宏提示,打开带有vba代码的excel

分享我的经验:强制启用宏,跳过宏提示,打开带有vba代码的excel

很多朋友excel里面有vba代码,每次打开文件总是有是否启用宏的提示,当然你可以把他设置成最低,但是这不是根本之计,倘若你要把你的作品发给别人分享,这样的提示不免显得自

己的作品有暇疵.

目前用vba强制启用宏的方法有很多,其中有一种比较好用的就是给工作簿加一个钥匙. ===============================================================================

====

关于这个课题,

/viewth ... 3&page=3#pid2488679

vb强制启用宏-我的笔记本（DLL封装）liwei1980

/thread-377562-1-1.html

再发一个vb强制启用宏工具 liwei1980

/

里面有相关介绍,我也是从这两个帖子里面得到启示,写出源代码,然后修改优化,最后形成

的,是一个exe文件.

===============================================================================

====

附件1:此钥匙主要机理是修改注册表

使用方法:

1.你把你包含vba的excel文件名改成"我的工作簿.xls",并对此设置打开权限密码"123".

2.把这个excel文件和"打开我的工作簿钥匙.exe"放在同一个文件夹下.

3.双击"打开我的工作簿钥匙.exe",OK.打开了,跳过宏提示,并且跳过了密码.

4.设置密码主要是防止别人不用钥匙直接打开excel文件,设置密码后,只能通过钥匙打开

改excel文件(当然破解的不算)

有什么问题或定制你需要的工作簿名称,和密码,请直接和我联系.

附件2:此钥匙较为简单

使用方法:

1.你首先把你要打开的excel文件设置密码123(不需要修改文件名),和下载的该钥匙放在

同一个文件夹下.

2.把改钥匙名称"test.exe"改成你需要打开的工作簿名称,如"财务管理.xls",即保证钥匙

名字和excel文件名字一样.

3.双击钥匙打开,OK.打开了,跳过宏提示,并且跳过了密码.

需要定制密码请联系我.

QQ:493349636

email:******************

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

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

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

12/7更新

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

此脚本自动寻找脚本目录中的一个工作薄并打开，所以，以后只要将想要强制开启宏的工作

薄放在此文件夹中即可完成

注意：

1。脚本只寻找一个工作薄，所以建议只在此目录放置一个工作薄

2。如果想要打开其它Excel文件，请更改代码粗体处为此Excel文件的后缀（如：.xla）

代码：8COiGF9u.rar (4.26 KB)

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

注：建议还是给用户应有的权利，让用户来选择是否启用宏

请不要用此方法制作病毒

附件

qtohvdaw.rar(3.99 KB)

2007-12-3 11:40, 下载次数: 864

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

zoAJ86Nh.rar(413 Bytes)

2007-12-7 08:50, 下载次数: 810

[推荐] 我说“启用宏”，就得启用宏，管你什么安全级[分享]也谈“我说‘启用宏’，就得启用宏，管你什么安全级”

看了BobPan的《我说“启用宏”，就得启用宏，管你什么安全级》一文

（/viewthread.php?tid=283306），解决了我在工作中的一个问题，实在是非常佩服，不过对楼主所说的建立脚本文件的快捷方式，然后更改成Excel 图标的方法，本人觉得不很好用，因为快捷方式好像不能用相对路径，并且一般情况下，会有一个快捷方式图标，有碍观瞻，而用VB方式，可能会用VB的人也不是很多（呵呵，包括本人），经过实际琢磨，本人觉得可以用WinRAR来制作一个可执行文件，具体方法：

1、进入带宏的Excel文件和脚本文件（RunMacro.vbs）所在的目录，选中所有文件，在任

意文件图标上右击》》》添加到压缩文件；

2、在弹出的“压缩文件名和参数”对话框的“常规”选项卡中选中“创建自解压格式压缩

文件”；

3、切换到“高级”选项卡，点击“自解压选项”按钮。

4、在弹出的“高级自解压选项”对话框的“常规”选项卡中，选择“在当前文件夹中创

建”，在“安装程序”》》》“解压后运行”中输入“RunMacro.vbs”；

5、切换到“模式”选项卡，选中“全部隐藏”和“跳过已经存在的文件”；

6、切换到“文本和图标”选项卡，点击“从文件加载自解压文件图标”后的“浏览”按钮，

选择一个图标文件，打开，再连续确定两次，就可以生成一个自解压文件。

现在看一看，是不是双击这个文件就能运行带宏的Excel文件了呢？

说明：Excel文件和脚本文件都是取自BobPan的，对脚本我一窍不通。重复BobPan的话：

请不要用此方法制作病毒！

SQrMIxwd.rar (69.73 KB)