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

andyisboy

Dim oExcel,fn
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
'oExcel.Workbooks.Open fn, "123")
Set fso = oExcel.Workbooks.Open(”我的工作簿.xls“ ,,,, )
Set oExcel = Nothing
Wscript.Quit
以这段代码为例，如何才能不输入密码“123”，请高手赐教！

wj2368

VBA能打开宏的，你的系统就不安全了。不能误导啊

wangcaiok

原帖由 andyisboy 于 2009-11-2 13:24 发表
Dim oExcel,fn
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
'oExcel.Workbooks.Open fn, "123")
Set fso = oExcel.Workbooks.Open(”我的工作簿.xls“ ,,,, )
Set oExcel = Nothing
...

什么意思呢?你的意思是 工作簿保护密码是123 你想打开强制启用宏,并且自己输入密码?
这样是有办法的.
oExcel.Workbooks.Open fn, "123") 把这一句注释去掉试试.
或者
Set fso = oExcel.Workbooks.Open(”我的工作簿.xls“ ,,,, )
后面的几个逗号(忘记是哪个了)加上"123" 你试试呢.
有问题或解决了这边留言一下 谢谢

wangcaiok

原帖由 wj2368 于 2009-11-2 13:31 发表
VBA能打开宏的，你的系统就不安全了。不能误导啊

呵呵,对,系统是很脆弱的,但是这是一种技术,可以用于封装你的Excel作品 看起来或更完善 更专业的.

szqhb

exe文件是用什么软件做的？？？？

2.用vbs：
Dim oExcel,fn
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
'oExcel.Workbooks.Open fn, "123")
Set fso = oExcel.Workbooks.Open(”我的工作簿.xls“ ,,,, )
Set oExcel = Nothing
Wscript.Quit
这个应用不成功，不知何故？ .

[ 本帖最后由 szqhb 于 2009-12-14 21:25 编辑 ]

hhzjxss

真的蛮有味，值得学习！

ngs139

Dim oExcel,fn,fso
fn=Replace(WScript.ScriptFullName,Right(WScript.ScriptFullName,4),".xls")
on error resume next
Set oExcel = GetObject(,"Excel.Application")
if err.number<> 0 then  Set oExcel =CreateObject("Excel.Application")
err.clear
oExcel.Visible=True
set fso = oExcel.Workbooks.Open (fn,,,,"123")
Set oExcel = Nothing
Wscript.Quit

以上代码生成vbs文件,放在那个与目标EXCEL文件的同一文件夹内，然后修改成与那个目标EXCEL文件同名，就OK了！
呵呵，我也是试了2个多小时搞定了，

wangcaiok

你是个好学生，要多尝试哈~~

daihy

如果2个文件能合一就好了

hnzzhgy

如何做成EXE