excel中如何用vba隐藏所有sheet

Question

我的worksheets里有若干个sheet，我想全部隐藏
For i = 1 To Sheets.Count
Worksheets(i).Visible = xlSheetVeryHidden
Next i

我现在是用一个循环语句完成的，能不能用一个语句就完成啊？

Answer 1

1
For i = 1 To Sheets.Count 这句最后面得加上减1 （-1）之类的，得至少留一个不隐藏的
Worksheets(i).Visible = xlSheetVeryHidden
Next i

2
你可以这样：
Applicion.screenupdating=false
For i = 1 To Sheets.Count-1
Worksheets(i).Visible = xlSheetVeryHidden
Next i
Applicion.screenupdating=true

Answer 2

不可能实现，官方规定必须有一个表是不能隐藏的

Answer 3

sheet名称.visible=xlsheethidden,或者xlsheetveryhidden.帮助文件里有很清楚的解释

Answer 4

没有快捷的方法