怎样在VBA中实现EXCEL启动后不显示行号列标和编辑栏！！答复结分！

[hunter525]

我在使用EXCEL制作关于计算方面的工具，用户在规定单元格输入数据后自动计算出结果。这个文件做为一个信息管理系统的辅助工具。由于该文件内容不允许用户编辑，所以有些EXCEL中的行号列标和编辑栏不需要，现在要在VBA中实现文件启动后不显示编辑栏、行号列标和工具栏，请问怎么实现呢？答复结分！恳请大虾们帮忙了！！！

[basey]

很简单啊，把下面宏加入文件中，打开即运行。

sub auto_open()
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
end sub

[ZHENG017]

Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False

[hunter525]

那怎样隐藏格式工具栏和常用工具栏呢？

[zgr0123]

可以把用户的操作大大地加以限制，只留下鼠标单击选择某单元格，其它的
功能统统屏蔽掉。连右键快捷菜单都没有哦！
想知道吗？（部分代码，要当心哦，无法回到缺省界面可别怪我。）
Dim cmb As CommandBar
Dim cmc As CommandBarControl

Set mnuSys = Application.CommandBars("Worksheet Menu Bar")

For Each cmb In Application.CommandBars
'隐藏除系统菜单外的所有工具条
If cmb.Name <> "Worksheet Menu Bar" Then
If cmb.Visible Then
'colVisualCommandBars.Add cmb, cmb.Name
cmb.Visible = False '隐藏其它工具条
End If
End If
Next

For Each cmc In mnuSys.Controls
'隐藏系统菜单的各弹出菜单
cmc.Visible = flase
Next