3,245
社区成员
发帖
与我相关
我的任务
分享
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