文件另存问题求助》》

us520

Private Sub Workbook_Open()

Application.Visible = False

Application.DisplayFormulaBar = False

UserForm5.Show

End Sub


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

pureshadow

不需要运行窗体就不需要这段代码

tanhong

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

复制代码

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