办公软件VBA学习(Application)

Sub Other()
    With Application
        .DisplayFormulaBar = False                     ' 隐藏编辑栏
        .CommandBars.DisableAskAQuestionDropdown = True  ' 隐藏帮助
        .CommandBars("ply").Enabled = False       ' 右键单击工作表标签后不显示菜单
        .CommandBars("cell").Enabled = False         ' 右极单击工作表区域后不显示素金
        .DisplayStatusBar = False  '  隐诚状态栏
        .ShowStartupDialog = False                    ' 隐藏任务窗格
    End With
End Sub

Sub ObjectTest2()
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets(1).Range("A3")
    With rng
        .Clear
        .Value = "Excel Home "
        .Font.Name = "宋体"
        .Font.Size = 16
        .Font.Bold = True
        .Font.ColorIndex = 3
    End With
End Sub