请高手帮忙，急！！工作表不见了？

Jason.Chan · 发表于 2012-2-7 08:20

2012生产.rar (46.63 KB, 下载次数: 30)

我也是从本站上复制的代码，复制到“目录索引”中，右键“看到代码”上，结果保存后，原先的工作上的链接都能不回来了，请高手指教啊！！

如附件所示！！

CheryBTL · 发表于 2012-2-7 08:33

到格式——>工作表——>取消隐藏里看看

kakaco · 发表于 2012-2-7 08:35

Private Sub Worksheet_Activate() '这段代码通过单击sheet1标签返回sheet1并隐藏其它工作表
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next
End Sub

我想改成true 应该就可以。

交叉点 · 发表于 2012-2-7 08:42

本帖最后由交叉点于 2012-2-7 08:43 编辑

工作表被隐藏了。
超链接对隐藏工作表无效。
删除代码，然后取消隐藏即可。
或者将下面代码粘贴到ThisWorkbook里，保存后再打开。
Private Sub Workbook_Open()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next
End Sub

yancjm · 发表于 2012-2-7 09:00

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("e5:e20")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Sheets(Target.Value).Visible = 1
Sheets(Target.Value).Activate

End Sub

Jason.Chan · 发表于 2012-2-7 13:52

非常感谢各位的帮忙！！！解决了！！

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

请高手帮忙，急！！ 工作表不见了？

请高手帮忙，急！！工作表不见了？