excel - 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

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

谢谢

标签： excelvba

Answer 1

有一个非常隐蔽的关卡：

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

或者xlSheetVeryVisible为了相反的效果

请注意，此级别只能通过 vba 控制，但函数可以与非常隐藏的工作表上的单元格一起使用。