excel表格菜单栏怎么不动

1.如何让excel上面的工具栏保持不动

#001 Sub DelNowBar()

#002 On Error Resume Next

#003 With Application

#004 .CommandBars("Standard").Visible = True

#005 .CommandBars("Formatting").Visible = True

#006 .CommandBars("Stop Recording").Visible = True

#007 .CommandBars("toolbar list").Enabled = True

#008 .CommandBars. = False

#009 .DisplayFormulaBar = True

#010 .CommandBars("NewBar").Delete

#011 End With

#012 End Sub