如何批量修改10个工作表名字，修改成功则弹出修改成功，如果没有变动则显示无修改内容

YZC51 · 发表于 2018-8-20 20:24

feel5114 发表于 2018-8-20 19:27
不是把，我怎么找不到类似解除屏蔽的地方？请问你知道么？

36楼附件已经更新！

YZC51 · 发表于 2018-8-20 20:38

请参考
http://club.excelhome.net/thread-303287-1-1.html

feel5114 · 发表于 2018-8-20 20:40

YZC51 发表于 2018-8-20 20:38
请参考
http://club.excelhome.net/thread-303287-1-1.html

谢谢，我先研究下，，

feel5114 · 发表于 2018-8-20 20:56

YZC51 发表于 2018-8-19 21:18
请参考

你能帮我看下么，我试了好多次还是不行，我保护所有工作表之后超级链接有效，隐藏之后超级链接就无效了

YZC51 · 发表于 2018-8-20 21:05

请参考！如果可行，请鼓励下！

测试代码.rar (88.42 KB, 下载次数: 5)

YZC51 · 发表于 2018-8-20 21:21

feel5114 发表于 2018-8-20 20:56
你能帮我看下么，我试了好多次还是不行，我保护所有工作表之后超级链接有效，隐藏之后超级链接就无效了

附件已经上传请查收

feel5114 · 发表于 2018-8-20 21:25

YZC51 发表于 2018-8-20 21:05
请参考！如果可行，请鼓励下！

为什么要点2下超级链接才能进入表格？

YZC51 · 发表于 2018-8-20 21:59

本帖最后由 YZC51 于 2018-8-21 06:38 编辑

请参考

批量修改10个工作表名字1.rar (32.41 KB, 下载次数: 3)

YZC51 · 发表于 2018-8-21 07:17

楼上附件已经更新！

YZC51 · 发表于 2018-8-21 19:35

楼主：总账单一直不隐藏怎么弄。。？
这样试试
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) '当离开工作表时
If Sh.CodeName = "Sheet1" Or Sh.CodeName = "Sheet2" Then Exit Sub
Sh.Visible = xlVeryHidden '如果工作表的顺序号表名称不是"Sheet1"则深度隐藏该表
End Sub

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

[求助] 如何批量修改10个工作表名字，修改成功则弹出修改成功，如果没有变动则显示无修改内容

评分