Excel vba显示小标题栏

Question

我的目标是显示一个带有标题栏，滚动条以及菜单方面的其他内容的Excel窗口。

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

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

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

作为旁注，如果有人知道如何禁用文件菜单，欢迎提出建议。

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