有关VBA代码的问题，请指教

付春才 · 发表于 2018-7-9 09:30

求助：点击“冷轧测算”，弹出“引用无效”框，然后进入已隐藏的表格，我的目的可以达到，但是再点击过程中一直弹出“无效连接”框，挺烦人，请高手直接帮忙改过来，具体见附件

付春才 · 发表于 2018-7-9 09:32

Private Sub Worksheet_Activate() Dim sh As Object For Each sh In Sheets If sh.Name <> "目录" Then sh.Visible = xlSheetHidden Next End Sub Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim sh As Object On Error Resume Next Set sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", "")) If Not sh Is Nothing Then Application.EnableEvents = False sh.Visible = xlSheetVisible Target.Follow Application.EnableEvents = True End If End Sub

朱荣兴 · 发表于 2018-7-9 15:26

提示: 作者被禁止或删除内容自动屏蔽

付春才 · 发表于 2018-7-9 17:46

可能是我的WORD版本的问题，另测试了你写的代码，取消超连接后可以直接到达相应的表格，但是返回目录时打开的表格不自动隐藏，请高手指教。谢谢

朱荣兴 · 发表于 2018-7-9 17:49

提示: 作者被禁止或删除内容自动屏蔽

付春才 · 发表于 2018-7-9 17:51

朱荣兴发表于 2018-7-9 17:49
自动隐藏打开的工作表，还是你原来的代码，没动，在我这里测试，一切正常，07版和10版都一切正常，

我用的是WPS

朱荣兴 · 发表于 2018-7-9 17:54

提示: 作者被禁止或删除内容自动屏蔽

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-9 15:26 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-9 17:49 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-9 17:54 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 有关VBA代码的问题，请指教