2017-09-25 57 views

回答

0

这类问题已经讨论栈溢出单击here

您的情况下,尝试下面的代码

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
'Code start from here 
Private Sub Workbook_Open() 
    ' Delete the unwanted toolbar 
    Dim cmdbar As CommandBar 
    For Each cmdbar In Application.CommandBars 
     If cmdbar.Name = "Universal Template" Then '<--- ToolBar name 
      cmdbar.Delete 
     End If 
    Next 
End Sub 
'Code end here 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 


    '''or Try this 
Sub RemoveCustomizeToolBars() 

For Each bar In CommandBars 
    If bar.BuiltIn = False Then 
     bar.Delete 
    End If 
Next bar 

End Sub 
+0

我尝试了这个codes.In第一代码我显示的所有cmdbar.name它穿着所有在通用模板中呈现的按钮,并且第二代码中的所有标签 –

+0

也与第一代码相同 –