Question

excel被隐藏的工作表怎样取消隐藏啊？

我之前在网上找了段VBA代码，可以隐藏工作表的，代码如下
Private Sub Worksheet_Activate()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden
Next sht
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End Sub
我现在想把工作表还原，怎么办啊，有没有高手解决下

Answer 1

1.在取消excel隐藏之前请首先确定表格是否被保护，如果存在保护请先取消工作簿、工作表保护。
2.若是工作表被隐藏，在excel2003中操作流程为 ：格式→工作表→取消隐藏或在工作表名称位置点击鼠标右键→点击“取消隐藏”→选择需要显示的工作表。

3.若是工作表被隐藏，在excel2007中操作流程为 ：审阅→更改→取消保护；视图→窗口→取消隐藏或在工作表名称位置点击鼠标右键→点击“取消隐藏”→选择需要显示的工作表。

4.若是工作表内的表格部分被隐藏，选中表格区域→右键点击A、B.....列→点击取消隐藏

追问

我的不是那个简单 的隐藏，我的是有一个表格目录，然后创建了链接，点开链接后然后显示工作表，返回的话，该工作表自动隐藏的

追答

好吧

Answer 2

Visible = xlSheetVeryHidden 完全隐藏就是 表格里不能选择取消隐藏
改成xlSheetVisible 显示就不隐藏
改成xlSheetHidden 隐藏但在表格里可以选择取消隐藏

追问

• 谢谢！！我已经搞定了

追答

不客气建议你买一本书 >就20多块钱我也是从0学期的，看的这本书

Answer 3

隐藏工作表和恢复，在格式--工作表--隐藏或取消隐藏来不就行了！还用VB多麻烦！

Answer 4

全部显示
sub a()
dim i%
for i=1 to sheets.count
sheets(i).visble=true
next

end sub

执行即可全部显示出来了。

追问

不能用啊，应该怎么用？？

追答

ALT+F11——
粘贴我给你的代码。
F5运行

Answer 5

Private Sub Worksheet_Activate()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVisible
Next sht
End Sub

追问

要把原来的那段代码删除吗？

追答

要