|
|
本帖最后由 lskvslgt 于 2013-3-8 09:25 编辑
最近做了个带宏的工作簿给同事分享，结果发现原来好多人根本就不知道什么是宏，更别说怎么启用宏了，晕，狂晕，我就在EH搜索，结果发现了BobPan版主大贴:http://club.excelhome.net/viewthread.php?tid=283306 我试着套用了一下，可惜我太菜了，以失败告终了，我就继续搜索结果发现了N个类似的帖子，
http://club.excelhome.net/viewthread.php?tid=289832
http://club.excelhome.net/viewthread.php?tid=284791
http://club.excelhome.net/forum.php?mod=viewthread&tid=502320
一个一个都实验了，但是总感觉不够完美，终于在我苦苦寻找中，找到了一个简单实用的办法《用Excel钥匙来强制启用宏》，经过验证不管是你用
的03或者07都没有问题（因为本人电脑没有安装10所以没能验证）。不敢独享，贴上来和EH的朋友分享讨论。
以下内容来自网络：
很多人用excel宏做了一些小工具，发给别人使用的时候，苦于每次都要弹出“是否启用宏”的提示，有些安全性高的什么都不提示，直接禁用宏，这样就做出来的工具没有效果，有没有一种方法能直接启用宏呢？让使用者看不到任何提示？
答案是有的：
思路是：
用一个是vbs文件作为打开你这个excel 的钥匙，你运行一个vbs文件自动强制启用宏打开excel文件了，优点还有就是，可以为excel设置密码，单单打开excel必须输入密码，你要是用钥匙的话，就不需要，起安全保护作用。
步骤：
1.将下面这段代码复制到记事本中。
Dim oExcel,fn
fn=Replace(WScript.ScriptFullName,"我的工作簿.vbs","我的工作簿.xls")'截取的路径
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
Set fso = oExcel.Workbooks.Open(fn ,,,,"excel密码")
Set oExcel = Nothing
Wscript.Quit
2.将【我的工作簿.vbs】改成你要生成的vbs的文件名。【我的工作簿.xls】改成你的excel文件名字。【excel密码】改成你的excel'密码，例如123，如果不设密码，直接双引号即可。
3.将记事本保存为vbs文件（直接将TXT改成VBS），一定是vbs图标和txt不一样的。
4.将这个vbs文件和excel文件放在一起，你双击vbs，马上就打开excel了，在将excel'宏安全性设为高级看看，一样有效。
补充：
1.网上可以找一个vbs2exe工具，将vbs生成exe并设置自己独有的图标，然后发送到桌面快捷方式。以后在桌面上双击就可以打开excel了。
2.为了保护数据的安全，可以将加密的excel分发出去，然后给配上这个excel钥匙，没有钥匙的打不开excel有钥匙的才能打开。
3.若部分杀毒软件会报毒，可先在杀毒软件里面设置白名单。
另外一种方法见26楼
希望对大家能有用
|
评分
-
4
查看全部评分
-
|
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2012-3-12 22:32
楼主
