第3个回答 2012-06-28
用宏启动。你试试以下代码可否?
Sub auto_open()
If MsgBox("如果显示工具栏、状态栏和编辑栏请点击是按钮,否则请选择否按钮。", vbYesNo + vbQuestion, "") = vbYes Then s = "true" Else s = "false" With Application .CommandBars("WorkSheet Menu Bar").Enabled = s .DisplayStatusBar = s .DisplayFormulaBar = s End With With Application Toolbars(1).Visible = s Toolbars(2).Visible = s Toolbars(3).Visible = s Toolbars(4).Visible = s Toolbars(5).Visible = s Toolbars(7).Visible = s Toolbars("Visual Basic").Visible = True End WithEnd Sub用这段代码可以切换可视性。