[已解决]我的一个文件有两个工作表不见了

1091126096

我的一个文件有两个工作表不见了，请帮忙。原来有其它工作表和宏的，已经删除了，剩下三个工作表，保存后打开只能看到一个工作表。vba编辑器中也找不到其它的宏代码了。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-27 18:22

运行一次这个代码就能显示出来了

1. Sub 显示全部工作表()
   
2. Dim SHT As Object
   
3. For Each SHT In Sheets
   
4.    SHT.Visible = 1
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

1091126096

请高手帮忙。

mxg825

运行一次这个代码就能显示出来了

1. Sub 显示全部工作表()
   
2. Dim SHT As Object
   
3. For Each SHT In Sheets
   
4.    SHT.Visible = 1
   
5. Next
   
6. End Sub

复制代码

高

Sub ff()
Dim x As Integer
For x = 1 To ThisWorkbook.Worksheets.Count
Sheets(x).Visible = True
Next
End Sub

1091126096

回复 mxg825 的帖子

谢谢！工作表显示出来了，为什么会这样呢？请解释。

YANG6815475

设置最佳答案？！

windimi007

回复 1091126096 的帖子

因为有人设置了你工作表的visible属性，见下图：
只要讲所有的工作表设置为-1，就没有隐藏的工作表了，你之所以看不到，是因为工作表的visible属性设置为了-2，即：深度隐藏。{:3212:}

高

在上楼的属性窗口中，工作表的visible属性只有设为-1,才显示工作表，设为0和2都隐藏

YANG6815475

回复 mxg825 的帖子

用了你的代码，显示楼主的东西轻而易举。但对另一个文件就显示下面对话框：
请你修改一下代码？！谢谢！！

对话框

mxg825

YANG6815475 发表于 2011-10-27 19:50
回复 mxg825 的帖子

用了你的代码，显示楼主的东西轻而易举。但对另一个文件就显示下面对话框：

放在模块里!试试