[發問] 2003與2010程式碼

reangame

各位大大，請教問題如下：

在2003中可以順利執行，例如下面程式碼：

1.     c = Worksheets.Count
   
2.     For i = 1 To c
   
3.         Sheets(i).Visible = True
   
4.     Next i

複製代碼

但在2010中無法執行，原因出在工作表名稱的不同，
因為已經使用2003版本寫了蠻大量的程式碼，逐一修改實在是太費工了，
且使用者會有同時使用2003或2010的可能，寫兩套版本也太佔容量，
所以要請教各位大大，如何加寫程式碼讓使其能夠在2003與2010中同時執行?

GBKEE

回復 1# reangame
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet
   
4.     For Each Sh In ThisWorkbook.Sheets
   
5.         Sh.Visible = xlSheetVisible
   
6.     Next
   
7. End Sub

複製代碼

reangame

回復 2# GBKEE

感謝GBKEE大大，這幾天比較忙沒時間上來，

您指導的方法沒有問題可以執行，感謝您囉!!