Question

烦请VB高手帮忙，VB引用Excel,只显示工作表内容，隐藏菜单及工具栏，去掉内容以外的空白单元格，求代码

Answer 1

Sub 隐藏工具菜单栏()
    Dim i As Integer
    For i = 1 To Application.CommandBars.Count
        Application.CommandBars(i).Enabled = False
    Next i
    Application.Caption = False
    Application.DisplayFullScreen = False
    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False '行列标隐藏
    ActiveWindow.DisplayVerticalScrollBar = False '垂直滚动条隐藏
    Application.DisplayFullScreen = True
    Application.ScreenUpdating = Fasle
    Application.DisplayFormulaBar = False
End Sub
Sub 显示工具菜单栏()
    Dim i As Integer
    For i = 1 To Application.CommandBars.Count
        Application.CommandBars(i).Enabled = True
    Next i
    Application.DisplayFullScreen = True
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True '行列标隐藏
    ActiveWindow.DisplayVerticalScrollBar = True '垂直滚动条隐藏
    Application.ScreenUpdating = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = True
 
End Sub

 ’执行隐藏工具栏命令后所有的EXCEL工作表都将隐藏工具栏。所以在工作表的关闭事件中调用 显示工作表命令。去除其余的表格用白色填充。见附件

追问

虽未能解决问题，但还是非常感您！辛苦了！

Answer 2

Private Sub auto_Open()
Dim bar As CommandBar
Application.ScreenUpdating = Fasle
Application.DisplayFormulaBar = False
For Each bar In Application.CommandBars
If bar.BuiltIn = True Then bar.Enabled = False
Next

End Sub

追问

谢谢！
我是以OLE 图标引用（打开）已存文件，只需看其内容，不可编缉，其窗口随文件内容大小自动。
可以给个完整代码么？谢谢！

追答

你引用的是文件，这个文件是什么样的，引用过来就是什么样的，文件可以编辑，引用过来就可以编辑。原文件不能编辑，引用过来就不能编辑。
如果你要引用过来的都不可编辑，那你需要引用内容了，打开文件，把内容写进当前EXCEL，对原文件就不影响了

追问

直接把内容放窗体上也可以。

追答

直接放窗体上不太现实，因为每张表格式都不一样，放在一个窗体上非常困难。

你还是直接用一张表做模板，直接引用到模板的表格里去吧，整张表复制粘贴比较方便

Answer 3

不可能做到