试试这个代码：
Dim bar As CommandBar
Application.DisplayFormulaBar = Fasle
For Each bar In Application.CommandBars
If bar.BuiltIn = True Then bar.Enabled = False
Next
在关闭工作簿时执行：
Application.DisplayFormulaBar = True
我还是在这上面找到的，在此表示感谢
答：将光标置于拟分段处,按ALT键回车即重新起行.详情>>
