Question

当单击关闭工作簿时VBA隐藏工作簿

请教高人我想在启用所有宏的情况下实现当关闭工作簿时VBA自动隐藏工作簿，打开工作簿时VBA自动显示工作簿。如果在禁用宏的情况下打开工作簿时被隐藏的工作簿就不会显示，在VisualBasic里也找不到该工作簿的VBAProject
谢谢！

Answer 1

1. 隐藏工作簿的操作非常简单，只需打开需要隐藏的工作簿，然后在“视图”选项卡的“窗口”组中单击“隐藏”按钮即可。

   

2. 对于处于隐藏状态的工作簿，还可取消其隐藏状态，使其可以在Excel主窗口中重新显示。在“视图”选项卡的“窗口”组中单击“取消隐藏”按钮，打开“取消隐藏”对话框。在对话框中选择要取消隐藏的工作簿名称，然后单击“确定”按钮，在窗口中重新显示该工作簿。

   

3.  隐藏或显示工作表

   需要隐藏工作表时，只需选定需要隐藏的工作表，然后在“开始”选项卡的“单元格”组中，单击“格式”按钮，在弹出的快捷菜单中选择“隐藏和取消隐藏”|“隐藏工作表”命令即可。

   
   

4. 如果要在Excel 2007中重新显示一个处于隐藏状态的工作表，可单击“格式”按钮，在弹出的快捷菜单中选择“隐藏和取消隐藏”|“取消隐藏工作表”命令，在打开的对话框中选择要取消隐藏的工作表名称，然后单击“确定”按钮即可。

    

   
   

5. 隐藏或显示窗口元素

   为了尽可能多地利用屏幕显示工作表数据，用户可以隐藏大多数窗口元素。这些窗口元素包括Excel的编辑栏、网格线、标题等。打开“视图”选项卡，在“显示/隐藏”组中，可以设置隐藏或显示的窗口元素。

   
   

6. 设置工作表显示的比例

   如果工作表的数据量很大，使用正常的显示比例不便于对数据进行浏览和修改，则可以重新设置显示比例。

   
   

7. 打开“视图”选项卡，在“显示比例”组中，单击“显示比例”按钮，打开“显示比例”对话框。在对话框的“缩放”选项区域中选择要调整的工作表显示比例。

   

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Windows(1).Visible = False
End Sub

Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Visible = True
End Sub

启动宏的情况下，能实现关闭自动隐藏，打开自动显示；

禁用的情况下，打开无法显示工作簿。

但你要禁用宏的情况下，连VBA Project都找不到，那不可能，除非你用其他软件自动把工作簿给关闭。

不知道对VBA 工程加密能不能满足你的需求

追问

谢谢您！

Answer 3

可以恢复的，在VisualBasic6.0里面点“文件”把“取消所有文件隐藏”打开就可以了，应该说没什么难的，但如果您用的不是最新版的，可能就没办法了，希望我的回答可以帮到您

追问

你确定有看清并已理解问题的内容了吗

Answer 4

是隐藏 指定的工作表还是工作簿，工作表可以隐藏，工作簿隐藏了，还有什么用

追问

你确定有看清并已理解问题的内容了吗