各位网友好，启动含有VBA代码的EXCEL文件，如宏安全级别较高时，总出现提示。是不是用VB启动打开含有VBA代码的EXCEL文件时，就不出现有关宏的提示，并能运行代码。如是这样，打开含有VBA代码EXCEL文件的代码与一般的打开代码相同吗，还是说有特殊要示，请指导。谢谢

下面的附件中是一个例子，能打开EXCEL文件，不有设置安全级别，并有显示启动过程滑动条，请指导一下，如何编写代码
如何知道如何编写代码，我就可以打开任意的含有VBA代码的EXCEL文件

[ 本帖最后由 燕之峰 于 2014-3-26 21:09 编辑 ]

思路和相关代码如下，关于控件属性和设置问百度
1.滚动条用控件ProgressBar + Timer实现
按"登录"后，启动Timer,ProgressBar1值递增，当ProgressBar1值=ProgressBar1最大值时，关闭Timer并隐藏登录界面，打开Excel
ProgressBar1.Value = 0    '初始值
ProgressBar1.Minimum = 0    '最小值
ProgressBar1.Maximum = 100    '最大值
Timer.Enabled = True    '启动Timer
Timer.Enabled = False    '关闭Timer
Timer.Interval = 1000    '时间间隔，1000为1秒，控制滚动条滚动速度

2. 打开Excel （首先要引用EXCEL对象,工程->引用-> Microsoft Excel xxx Object Library, xxx 为版本号)
Dim xlApp As New Excel.Application, xlBook As New Excel.Workbook, xlSheet As New Excel.Worksheet    '定义相关属性
Set xlApp = CreateObject("Excel.Application")    '打开Excel软件
xlApp.Visible = True    '显示EXCEL
xlApp.DisplayAlerts = False    '取消Excel消息提示
Set xlBook = xlApp.Workbooks.Open(FileName)    '打开指定Excel文档
Set xlSheet = xlBook.Worksheets(1)    '设定第一个Sheet为活动工作表

用加上这一行代码吗
xlbook.runautomactos(xlautoopen) 运行EXCEL中的启动宏

加不加看你需求，如果打开后就要跑宏就加

请教 4楼 owenlu1981
打开后就要跑宏,是何意
xlbook.runautomactos(xlautoopen) 运行EXCEL中的启动宏,应放在哪个位置
另外，xlbook.runautomactos(xlautoclose) '运行EXCEL中的关闭宏
什么情况下使用运行
控件ProgressBar运行时，颜色如何设置

[ 本帖最后由 燕之峰 于 2014-3-27 17:45 编辑 ]

何必呢，直接将vba代码转化成VB代码来执行操作excel不就好了么，这样宏安全性可以忽略

Excel有两个自动宏，Sub Auto_Open(),Sub Auto_Close(),分别在打开和关闭Excel时自动执行
但是VB打开Excel时不会自动执行，所以需要命令来启动和关闭
启动:
Set xlSheet = xlBook.Worksheets(1)
xlbook.runautomactos(xlautoopen)
关闭:xlbook.runautomactos(xlautoclose)

Excel里的宏非系统管理员也可以改，但是EXE改起来就不方便了。