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

时间：2026-02-12 08:52:34

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

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

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

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

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

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

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

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

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