怎样使用VBA屏蔽Excel部分显示功能？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭本工作簿时恢复显示模式

Application.SendKeys "^{F1}"
    DoEvents
    Application.SendKeys "%"
    DoEvents
    Application.SendKeys "+{F10}"
    DoEvents
    Application.SendKeys "s"
    With ActiveWindow
      .DisplayHorizontalScrollBar=True '显示水平滚动条
      .DisplayVerticalScrollBar=True  '显示垂直滚动条
      .DisplayWorkbookTabs=True      '显示工作表标签
      .DisplayGridlines=True         '显示网格线
      .DisplayHeadings=True          '显示行列标题
      End With
      Me.Save
 End Sub
Private Sub Workbook_Open() '开启本工作簿时修改显示模式
Application.SendKeys "^{F1}" '修改快速访问工具栏的显示方式，即位于功能区上方还是下方
    DoEvents
    Application.SendKeys "%"
    DoEvents
    Application.SendKeys "+{F10}"

DoEvents

    Application.SendKeys "s"       '功能区最小化
    With ActiveWindow
      .DisplayHorizontalScrollBar=False '不显示水平滚动条
      .DisplayVerticalScrollBar=False  '不显示垂直滚动条
      .DisplayWorkbookTabs=False      '不显示工作表标签
      .DisplayGridlines=False         '不显示网格线
      .DisplayHeadings=False          '不显示行列标题
      End With
End Sub

5、重新打开工作簿，则工作簿启动后滚动条、工作表标签、网格线、行列标题和功能区都不显示，同时将快速访问工具栏的显示方位调换