嘗試以下程式碼...
Sub RemoveToolbars()
On Error Resume Next
With Application
.DisplayFullScreen = true
.DisplayFormulaBar =false
.DisplayStatusBar = true
.CommandBars("Full Screen").Visible = false
.CommandBars("Standard").Visible = false
.CommandBars("Formatting").Visible = false
.CommandBars("Worksheet Menu Bar").Enabled = false
End With
On Error GoTo 0
End Sub