[已解决]如何让隐藏的工作表显示

dreamman

PBTXJm6E.rar (167.98 KB, 下载次数: 0)

2010-4-20 09:48 上传

点击文件名下载附件
如何让隐藏的工作表显示
如题,如何让隐藏的工作表显示,谢!!!

如附表中如何让"辅"这个工作表显示,谢谢!!!

最佳答案

月排行榜 / 总排行榜

小线

2010-4-20 10:00

84JVm3Ke.rar (164.69 KB, 下载次数: 11)

2010-4-20 10:00 上传

点击文件名下载附件
如何让隐藏的工作表显示
顺便带上代码:
Sub unHideall()
    Dim st As Worksheet
    For Each st In ActiveWorkbook.Sheets
        st.Visible = xlSheetVisible
    Next
    Set st = Nothing
End Sub

跳转到最佳答案楼层

yufang0522

学习一下

小线

84JVm3Ke.rar (164.69 KB, 下载次数: 11)

2010-4-20 10:00 上传

点击文件名下载附件
如何让隐藏的工作表显示
顺便带上代码:
Sub unHideall()
    Dim st As Worksheet
    For Each st In ActiveWorkbook.Sheets
        st.Visible = xlSheetVisible
    Next
    Set st = Nothing
End Sub

csb-js

点击任意一个工作表标签，右键-取消工作表隐藏，它就出来了。

Zipall

因为该文件的vba工程设置了密码，所以我们只能用其他文件来解决它。

新建一个工作簿》ALT+F11》插入》模块

在模块中粘贴下面的代码

Sub test()
    ActiveWorkbook.Sheets("辅").Visible = True
End Sub

回到excel中打开你要修改的文件，按ALT+F8，执行刚才添加的TEST宏即可。