大难题，恳请高手指点

蓝纸船 · 发表于 2010-12-9 17:09

平时对函数图标之类的还略通一二，但今天老板提了一个报表的要求，不知道该怎么弄了，恳请高手指点一二。
在线等啊。

Book1.rar (4.37 KB, 下载次数: 28)

laowuwyx · 发表于 2010-12-9 17:29

到VBA板块求助吧。

xihabang · 发表于 2010-12-9 17:30

我建议的是 ..在打开工作薄之前

做一个inputbox 输入.. 然后判断是否与等于inputbox

如果为true 则打开

蓝纸船 · 发表于 2010-12-9 17:32

VBA，学习EXCEL最大的难题就是VBA,怕怕呀
只能用VBA吗，不能用一般的方法解决吗

蓝纸船 · 发表于 2010-12-9 17:35

在线等
刚到新公司，正式表现的时候，因为EXCELHOME，所以我充满信心
各位老大千万不能打击我的信心啊
拜托了

honggexjq · 发表于 2010-12-9 17:35

VBA有这么可怕吗

做了个例子

蓝纸船 · 发表于 2010-12-9 17:37

哇噻，楼上朋友是高手啊，我就是需要这个效果
具体怎么弄的啊，能否指点一二啊
拜托啦 honggexjq

蓝纸船 · 发表于 2010-12-9 17:39

Private Sub Worksheet_Activate()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Visible = xlSheetVisible And sh.Name <> "汇总" Then sh.Visible = xlSheetVeryHidden
Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.EnableEvents = False
Dim pass$
pass = InputBox("请输入密码:")
If InStr(Target.SubAddress, "资料1") Then
If pass = "111" Then
      Sheets("资料1").Visible = xlSheetVisible
      Target.Follow
Else
      MsgBox "密码错误！"
End If
Else
If pass = "222" Then
      Sheets("资料2").Visible = xlSheetVisible
      Target.Follow
Else
      MsgBox "密码错误!"
End If
End If
Application.EnableEvents = True
End Sub

我只要把这个代码复制到我的正式工作簿中然后修改工作表名称就可以了吗？
还有本人一直没明白，这些代码是通过操作自动生成还是逐个敲进去的？
VBA，本人学习EXCEL路上的一只大虎啊

honggexjq · 发表于 2010-12-9 17:44

这些代码是手敲的，有些可以自动生成
这个只适用两个隐藏表的，把表名替换替换先试试吧，不行再说

蓝纸船 · 发表于 2010-12-9 17:47

好的，我再多加几个工作表试试。
谢谢您了。

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

[求助] 大难题，恳请高手指点