Question

我想在打开Excel 时，只显示一个工作表。自动其他工作表隐藏。如何写VBA编号。

是编码不是编号。谢谢。

Answer 1

只显示第一脊源伏个樱携工作表,其它的工作表隐裂碰藏

Private Sub Workbook_Open()
for i = 2 to sheets.count
sheets(i).visible=false
next
End Sub

指定工作表sheet1不隐藏
Private Sub Workbook_Open()
dim sh as worksheet
for each sh in worksheets
if sh.name<>"sheet1" then sh.visible=false
next
End Sub

Answer 2

直接可以设置 只显示一个的

追问

运行第二条代码时，为什么会出现，错误：
运行时错误'1004'
方法'visible'作用于对象'_worksheet时失败
且显示的只是最后一个工作表。如何解决，请指教。