vba代码的问题？

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
Sheets("表一").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("表四").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("表五").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("表三").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

我想在关闭工作薄的时候，隐藏以上的工作表，可是在关闭后除了留下一个工作表外，其余的全部隐藏了，为什么，纠正哪些代码可以实现我希望隐藏的那几个工作表？请高手帮忙查找一下哪里的错误，谢谢！

hiden不是Sheet的属性，Sheet隐藏与否只能用Visible这个属性。
hiden是Range的属性，Range是指表格中的区域。这个属性只有在工作表保护以后才有用，相当于

选定一区域（或某一单元格），右键，单元格格式，保护，将“隐藏”前的对号选上。

请说明具体是哪款游戏

当然BeforeClose是点关闭按钮时关闭前的操作。在设定属性前要保存一下，下次打开时才会有效。

最后加一句。

ThisWorkbook.Save

----------------------------------------------------------------------

另外：

1.你最好先做个宏把所有表visible属性true一下，可能你前面代码已把表格隐藏了。

2.建议你试一下把这个放在open里，你不想人看你的几个表，在open里打开时先隐藏，VBA还是能操作隐藏表里的数据的（我记得试这样，你不访一试）。

3.我习惯用，Sheets("sheet3").Visible = False 来隐藏工作表，也说不清有什么区别，只觉得这样方便。