|
以下是引用lrest在2004-11-9 21:41:00的发言：
昨日下载了老刀的关于"禁用宏则退出系统"的第二版程序,相对于第一版改进了退出时强制用户存盘.
但感觉仍是稍有欠缺,程序每次激活sheet时,必须先运行 RUNMACRO 宏,如此宏不慎删除,则整个文件被
锁死，俺今天在封装DLL时就很不幸的遇到了此问题,于是下决心将其改进，还好在微软的网站找到了比较完美的解决方法。可以彻底丢掉 RUNMACRO 宏。
在此，向“老刀” 的大公无私至以诚至的谢意！
当在其它excel文件里用vba代码打开带宏表的文档时，即使该excel文档中有宏表，一样不会运行的，不知下面的代码是否正确：
Sub tt()
Dim xlapp As Excel.Application
Dim xlwk As Excel.Workbook
Dim xlsh As Excel.Worksheet
Dim sfullname As String
sfullname = "C:\WINDOWS\Desktop\取消宏则关闭工作簿(改进版).xls"'文档所在路径
Set xlapp = GetObject(, "excel.application")
'If Not xlapp.Visible Then xlapp.Visible = Not xlapp.Visible
Set xlwk = xlapp.Workbooks.Open(Filename:=sfullname, notify:=True)
Set xlsh = Nothing
Set xlwk = Nothing
Set xlapp = Nothing
End Sub
| 
楼主: lrest
[复制链接]
/1 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2004-11-22 16:53
楼主
