[已解决]求助：找回工作表

夹竹桃

老师们：
我在工作簿的ThisWorkbook 放入以下代码（网上找的）
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     I = 2
     Do
       If I <> Sh.Index Then Worksheets(I).Visible = False
     I = I + 1
   Loop Until I > Worksheets.Count
End Sub

之后其他的标签都隐藏了，之后我想找回标签，可是怎么弄都不能找回，VBA代码我也删除了可是还是不行。
老师们帮帮忙啊

最佳答案

月排行榜 / 总排行榜

爱疯

2011-8-12 11:33

回复 夹竹桃 的帖子

1. Sub a() '恢复显示所有工作表
   
2.     Dim sh
   
3.     For Each sh In Sheets
   
4.         sh.Visible = True
   
5.     Next sh
   
6. End Sub

复制代码

跳转到最佳答案楼层

爱疯

回复 夹竹桃 的帖子

1. Sub a() '恢复显示所有工作表
   
2.     Dim sh
   
3.     For Each sh In Sheets
   
4.         sh.Visible = True
   
5.     Next sh
   
6. End Sub

复制代码

夹竹桃

爱疯 老师：
谢谢！