以下是引用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
|