隐藏和显示的VBA应该怎么样写呢?

富之宝

如果我有几张表，工资表，成绩表，花名册，我要把这三张表隐藏起来，只有目录不隐藏
当我点目录中的按钮时才出来，然后当我关闭或返回目录时打开表时又自动隐藏起来的
VBA怎么写呢?

LangQueS

建议楼主录制宏，或请参考：

[分享]★链接目录★        http://club.excelhome.net/thread-303287-1-1.html

★２５９个常用宏★        http://club.excelhome.net/thread-239820-1-1.html

富之宝

LangQueS 发表于 2013-3-6 22:36
建议楼主录制宏，或请参考：

[分享]★链接目录★        http://club.excelhome.net/thread-303287-1-1.html

可不可以帮我解决个问题：
Sub 复制模板工作表()


Dim W As Workbook        '定义变量W为工作簿对象    For Each W In Workbooks '遍历已经打开的工作簿对象
For Each W In Workbooks '遍历已经打开的工作簿对象
If W Is Application.ThisWorkbook = False Then '如果W工作簿对象和代码所在工作簿对象比较，不相同，则执行。IS是比较运算符，比较两个对象是否相同，相同返回True，不相同返回False。你可以查基础书籍。
Application.ThisWorkbook.Worksheets("模版").Copy After:=W.Worksheets(W.Worksheets.Count) '将代码所在工作簿中的模板工作表拷贝到W工作表的最后一个工作表之后。
End If
Next
End Sub
这个程序在我自己的的电脑可以运行，但是我在另一台电脑上运行的时候
此句： Application.ThisWorkbook.Worksheets("模版").Copy After:=W.Worksheets(W.Worksheets.Count)显示为黄色，提示为:class worksheet的COPY方法失败,不知道要怎么改才行呢？
专门可不可以帮我解答一下(我那个系统是繁体系统，不会是繁体的问题吧)，我只是初学者

LangQueS

富之宝 发表于 2013-3-20 18:41
可不可以帮我解决个问题：
Sub 复制模板工作表()

建议修改代码名称及内容中的汉字部分为繁体或英文，相关工作表名称也要修改，试试看。

富之宝

LangQueS 发表于 2013-3-20 20:03
建议修改代码名称及内容中的汉字部分为繁体或英文，相关工作表名称也要修改，试试看。

都改成英文了还是不行啊
请问你能不能帮我重新写一个呢？

LangQueS

建议楼主压缩上传附件到程序开发版。