Office中国论坛/Access中国论坛

标题: 文件另存问题求助》》 [打印本页]

---

作者: us520    时间: 2008-9-14 22:52
标题: 文件另存问题求助》》
Private Sub Workbook_Open()

Application.Visible = False

Application.DisplayFormulaBar = False

UserForm5.Show

End Sub


这段代码是原文件的代码，修改另存后的文件不需要再运行userform5这个窗体，除此以外都需要保存,请问谨言慎行如何编写这段代码

---

作者: pureshadow    时间: 2008-9-15 10:31
不需要运行窗体就不需要这段代码

---

作者: tanhong    时间: 2008-9-15 13:55

1. Private Sub Workbook_Open()
   
2. Application.Visible = False
   
3. Application.DisplayFormulaBar = False
   
4. UserForm5.Show
   
5. End Sub

复制代码

把代码中UserForm5.Show部分删除或是加上单引号注释掉就可以了

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3