如何禁止excel的自定义工具条功能？

Question

多谢。操作怎么实现？代码怎么实现？

Answer 1

dim cmdTmp
For Each cmdTmp In CommandBars '删除工具栏
'        MsgBox cmdTmp.Name
        cmdTmp.Visible = False
        cmdTmp.Delete
        cmdTmp.Protection = msoBarNoChangeVisible + msoBarNoCustomize '禁止用户自己显示菜单
        Next

Answer 2

准确的说这样可以去掉excel的所有菜单和工具栏并不让用户恢复，但你要自己注意恢复。
dim cmdTmp as variant
For Each cmdTmp In excel.CommandBars '删除工具栏
'        MsgBox cmdTmp.Name
        cmdTmp.Visible = False
        cmdTmp.Delete
        cmdTmp.Protection = msoBarNoChangeVisible + msoBarNoCustomize '禁止用户自己显示菜单
        Next

Answer 3

有兴趣的话看看前面一个叫“请问各位大侠，如何控制Word或Excel的显示菜单和工具条？”的贴子中我的回复。

Answer 4

to  koko897(明亮的天空) ：没找到您的大作，能不能给出URL

Answer 5

看看下面的,这个是用于word的，不过工具条部分都是通用的，我屏蔽了所以除打印预览外的工具条Private Sub Command2_Click()
    Dim i As Long
    Dim WordApp As New Word.Application
    Dim Doc As Document
    Set Doc = WordApp.Documents.Add
    Dim ComBar As Office.CommandBar
    Doc.Words(1).Text = "cdk is good Boy!"
    For Each ComBar In WordApp.CommandBars
        If ComBar.Name = "Print Preview" Then
            ComBar.Enabled = True
            ComBar.Protection = msoBarNoCustomize + msoBarNoChangeDock + msoBarNoMove + msoBarNoChangeVisible + msoBarNoHorizontalDock 
        Else
            ComBar.Enabled = False
        End If
    Next
    WordApp.Visible = True
    Doc.PrintPreview
    'Do
    '    DoEvents
    '    If Not WordApp.PrintPreview Then
    '        Doc.SaveAs "c:\cdk.doc"
    '        WordApp.Quit
    '        Exit Do
    '    End If
    'Loop
    Set Doc = Nothing
    Set WordApp = Nothing
    'Kill "c:\cdk.doc"
End Sub

Answer 6

http://expert.csdn.net/Expert/topic/1973/1973635.xml?temp=.2673609