Excel07如何用宏让隐藏的工作表显示？又如何用宏将显示的工作簿隐藏？

Question

我有一个设想，就是想让Excel用户强制使用宏，这样就能保证我的工作表的全部功能齐全，但是有些时候用户不允许用宏，就无法实现了。因为VBA没有强制使用宏这个模块，所以我用另一个方法来实现这个目的，就是先右键隐藏所有的工作表，保留一个就行了，然后在上面注明如果开启宏才能使用这个表，一旦用户开启了宏，就能达到用编辑好的宏来显示隐藏的工作表了，同时也能达到其他宏功能的目的。关键是怎么用宏来显示被隐藏了的工作表？然后又怎么用宏来隐藏被唯一保留的那个工作表？

Answer 1

使用工作表的属性visible即可。

1、代码如下

Sub test()

'隐藏表1

Sheets("表1").Visible = 0

'显示表1

Sheets("表1").Visible = -1

End Sub

2、使用ALt+F11，进入，插入模块，粘贴代码 ，按下F5即可

Answer 2

1、Alt+F11,双击thiswork在打开的窗口中添加如下内容（示例代码）
Private Sub Workbook_Open()

Worksheets("界面").Visible = True
Worksheets("操作说明").Visible = False
Worksheets("负荷测试表头").Visible = False
End Sub
2、插入一个模块该模块中添加如下代码
sub 打开操作说明（）
Worksheets("操作说明").Visible =True
Worksheets("界面").Visible = False
Worksheets("负荷测试表头").Visible =False

?end sub
3、有多个工作表依次将打开宏制作完成
4、在界面工作表中将宏指定给按钮

追问

我试了，也是不行的，是不是因为我的是2007版本的？能发您的email来我把文件发给您然后帮我录制宏吗？我在Excel文件上注明了怎么去隐藏和显示工作表了。

追答

13438913439@139.com

Answer 3

worksheets(r).visible=true (显示)
=false(隐藏）

追问

还是不行哦，能给你的邮箱给我，我发过去你帮我编辑这个宏吗？

追答

jhtt-666@163.com
最好在表内注明要求

追问

已经发过去您油箱了，谢谢了。

追答

也回给你了