有奖竟赛题 : 如何隐藏工作表标签名称

chinagrass · 发表于 2011-11-10 15:33

学习永无止境

吻无痕 · 发表于 2011-11-15 10:58

jj1234567 · 发表于 2011-11-24 22:54

来学习一下，谢谢。

jinglingshu · 发表于 2011-12-5 20:14

我也想知道这个问题，进来学习学习。

tianti · 发表于 2011-12-6 10:20

回复下看看

jinglingshu · 发表于 2011-12-6 20:52

复制以下代码就OK啦

Private Sub Worksheet_Activate()

Dim sht As Worksheet

For Each sht In Worksheets

If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden

Next sht

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Sheets(Target.Value).Visible = xlSheetVisible

Sheets(Target.Value).Select

End Sub

莫其名 · 发表于 2011-12-8 21:12

1.右键工作表标签-隐藏
2.按ALT+F11打开VBE，在属性窗口中找到visible，把内容改为0或者2

迂孑 · 发表于 2011-12-18 16:30

121321231231321321

hrpotter · 发表于 2011-12-19 19:12

学习一下！！！！

rxj_0414 · 发表于 2011-12-19 22:26

{:011:}来学习一下!!!

		自动登录	找回密码
密码			注册