请帮忙解释代码，谢谢

佳林

Sub ab()
    With ActiveWindow
    .DisplayHeadings = False
    .DisplayWorkbookTabs = False
    End With
    Application.CommandBars(1).Enabled = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Control Toolbox").Visible = False
    Application.CommandBars("Reviewing").Visible = False
    Application.DisplayFormulaBar = False
    Application.CommandBars("Visual Basic").Visible = False
    Application.CommandBars("Web").Visible = False
    Application.CommandBars("Protection").Visible = False
    Application.CommandBars("Borders").Visible = False
    Application.CommandBars("Forms").Visible = False
    Application.CommandBars("Formula Auditing").Visible = False
    Application.CommandBars("Watch Window").Visible = False
    Application.CommandBars("PivotTable").Visible = False
    Application.CommandBars("Chart").Visible = False
    Application.CommandBars("Picture").Visible = False
    Application.CommandBars("Exit Design Mode").Visible = False
    Application.CommandBars("External Data").Visible = False
    Application.CommandBars("Ply").Enabled = False
    For Each cbar In CommandBars
    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
    Next
End Sub