怎样使用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、重新打开工作簿，则工作簿启动后滚动条、工作表标签、网格线、行列标题和功能区都不显示，同时将快速访问工具栏的显示方位调换