循環瀏覽工作簿並刪除VeryHidden工作表

Question

較大項目中的模塊之一是創建冗餘非常隱藏的工作表。我試圖遍歷工作簿中的每個工作表，並刪除標記爲非常隱藏的工作表。我在其他項目中使用了幾乎相同的代碼，並且它已經工作，所以我不確定爲什麼它不適用於這種情況。以下是我已經試過：

Dim sheet As Worksheet 
For Each sheet In ActiveWorkbook.Worksheets 
    If sheet.Visible = xlSheetVeryHidden Then 
     sheet.Delete 
    End If 
Next sheet 

我也試過，使用相同的代碼：

For Each sheet In ActiveWorkbook 

而且我也試過：

Dim i As Integer 
Dim sheetCount As Integer 
For i = 1 To sheetCount 
    If Worksheets(i).Visible = xlVeryHidden Then 
     Worksheets(i).Delete 
    End If 
Next i 

而且也：

For i = sheetCount To 3 Step -1 
    If Worksheets(i).Visible = xlVeryHidden Then 
     Worksheets(i).Delete 
    End If 
Next i 

在所有嘗試中Application.DisplayAlerts在運行前更改爲False，運行後更改爲True。導致運行時錯誤1004.

Answer 1

如果您在刪除工作表之前取消隱藏，它應該可以工作。

Dim sheet As Worksheet 
For Each sheet In ActiveWorkbook.Worksheets 
    If sheet.Visible = xlSheetVeryHidden Then 
     sheet.visible = xlSheetVisible 
     sheet.Delete 
    End If 
Next sheet