VBA 隐藏指定工作簿-excel vba隐藏工作表,excel vba 复制工作表

sub aa()
dim wb as workbook
dim wind as window
set wb=workbooks(1) '指定工zd作专簿
set wind=wb.windows(1) '指定工作簿窗口属

wind.visible=false

set wb=nothing
set wind=nothing
end sub
Excel工作簿不可能隐藏所有工作表。

可以先插入一个新工作表后，同时选定除新工作表外的所有工作表，依次点击【格式——工作表——隐藏】。

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