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

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub Workbook_Befo筠续师诈reClose(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.SaveEnd SubPrivate 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 WithEnd Sub

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