如何得到excel的对象

Question

我要对所有excel设置菜单的某些功能不可显示
用createobject和new Excel.applition都是只对打开的某一excel操作，而不是对所有的。也就是说如果我通过程序设置excel打开菜单不显示，当我关闭程序后，启动excel，打开菜单应该不显示。代码如下：
     Set ExcelApplication = CreateObject("Excel.Application")
      For Each xlCmdBar In ExcelApplication.CommandBars
            If xlCmdBar.NameLocal = "工作表菜单栏" Then
                Set xlControl = xlCmdBar.Controls(1)
                If Not IsNull(xlControl.CommandBar) Then
                    Set xlSubBar = xlControl.CommandBar
                    
                    For Each xlSubCtrl In xlSubBar.Controls
                        If InStr(1, xlSubCtrl.Caption, "(&") <> 0 Then
                            If InStr(1, xlSubCtrl.Caption, "打开") = 0 
                                    xlSubCtrl.Visible = False
                            end if
                        End If
                    Next
                End If
           End If
         Next通过开始菜单中的程序启动EXCEL打开菜单也能不显示。
请各位高手帮忙解决。

Answer 1

那就先将所有的Excel都关闭后再创建一个就可以了。

Answer 2

用这种方法无法实现。
因为你对EXCEL.Application的操作，只是对EXCEL的一个实例的操作。可能需要改注册表，你上网查下资料吧。

Answer 3

对所有excel设置菜单的某些功能不可显示
-------------
直接把菜单项和工具按钮去掉,而不是让它不可见,参考:Set ExcelApplication = CreateObject("Excel.Application")
ExcelApplication.CommandBars("File").Controls(2).Delete
ExcelApplication.CommandBars("Standard").Controls(2).Delete