利用Workbook对象的Open事件修改工作表界面

利用Workbook对象的Open事件修改工作表界面

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参-

在ThisWorkbook模块中写入下面的代码，关闭并保存对工作簿的修改，重新打开工作簿，即可看到代码执行的效果。

Private Sub Workbook_Open() Worksheets(1).Visible = True Dim i As Integer For i = 2 To Worksheets.Count Worksheets(i).Visible = False Next i With ActiveWindow .DisplayGridlines = False '隐藏网格线 .DisplayHeadings = False '隐藏行列标 .DisplayWorkbookTabs = False '隐藏工作表标签 .DisplayHorizontalScrollBar = False ' 隐藏水平滚动条 .DisplayVerticalScrollBar = False '隐藏垂直滚动条 End With With Application .DisplayFormulaBar = False '隐藏编辑栏 .DisplayFullScreen = True '全屏显示 End WithEnd Sub

当然，该过程仅供参考，你写出的过程不一定与上面的参考过程完全一样。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。