,您可以按照以下步骤操作:
Sub SaveHiddenSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetHidden Then
ws.Visible = xlSheetVisible
ws.Visible = xlSheetVeryHidden
End If
Next ws
ThisWorkbook.Save
End Sub
这样,生成的文件中将包含所有隐藏的Excel工作表。需要注意的是,为了再次访问这些隐藏的工作表,您需要重新打开生成的文件,并按照特定步骤将其解除隐藏。
领取专属 10元无门槛券
手把手带您无忧上云