Question

vba类worksheet的visible无效

for i = 2 to sheets.count
sheets（i）.visible = xlSheetVery Hidden
next
无法运行

Answer 1

括号不应该是全角（需要在英文下输入），后面多了一个空格，修改后正确代码（经过验证可以运行）如下：

Sub tst()
    Dim i
    For i = 2 To Sheets.Count
        Sheets(i).Visible = xlSheetVeryHidden
    Next
End Sub

Answer 2

Sub s()
Sheets(1).Visible = -1
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
End Sub

Answer 3

count

改
count -1