第2个回答 2010-09-07
Private Sub aaa()
On Error Resume Next
Dim i As Integer
On Error Resume Next
With Application
.DisplayStatusBar = True
.DisplayFormulaBar = True
.CommandBars("ToolBar List").Enabled = True
.CommandBars("Worksheet Menu Bar").Reset
.DisplayFormulaBar = iComB_Visible(0)
On Error Resume Next
For i = 1 To UBound(iComB_Visible) - 1
.CommandBars(1).Controls(i).Enabled = True
.CommandBars(iComB_Visible(i)).Visible = True
Next
End With
End Sub
建个模板 ,加到里面运行下就好了