Excel vba显示小标题栏

我的目标是显示一个Excel窗口标题栏，滚动条，没有别的菜单。

我一直在使用以下的组合：

With Application .Executeexcel4macro "Show.Toolbar(""Ribbon"",False)" .CommandBars(1).Enabled = False .CommandBars("ribbon").Enabled = False .DisplayFormulaBar = False .DisplayStatusBar = False End with 

我的问题是，这有时会完全删除标题栏。 我想要小标题栏，只需最小化 ， 最大化和closuresbutton。 根本没有标题栏是一个问题。

作为一个方面的说明，如果有人知道如何禁用文件菜单，build议是值得欢迎的。

编辑：问题解决了。 这是由于有多个隐藏的窗口，并多次执行上面的代码。 显然excel会感到困惑。 通过在打开的工作簿上执行代码解决一次。