3,248
社区成员




Sub test()
On Error Resume Next
Dim cmdbar As CommandBar
For Each cmdbar In Application.CommandBars
cmdbar.Visible = False
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub