EXCEL无法取消隐藏隐藏工作表

Question

尝试创建一个从ACCESS获取数据的工作簿。我可以打开工作簿，并添加了一些代码以在excel中自动打开。但是当我尝试编辑时，它总是告诉我必须取消隐藏隐藏的工作表。取消隐藏命令显示为灰色。首次设置时，我选择了“个人工作簿”，我认为这适用于我打开的任何书籍。在此过程中，我一直在删除工作簿以便重新开始，因此我认为实际上没有什么可删除的。我想将此代码添加到自动启动中，但我看不到代码。以下代码应该取消隐藏所有隐藏的工作簿/工作表：

     Sub Viewit()
     Dim Ws As Worksheet
     Application.ScreenUpdating = False
     For Each Ws In Worksheets
     Ws.Visible = True
     Next Ws
     Application.ScreenUpdating = True
     End Sub

寻找更好的解决方案，而我正在做的事情是错误的。

谢谢

Answer 1

有一个非常隐藏的级别：

ActiveWorkbook.Sheets("sheet name").Visible = xlSheetVeryHidden

或xlSheetVeryVisible产生相反的效果

请注意，此级别只能通过vba进行控制，但是功能可以在非常隐藏的工作表上使用单元格。