|
代码放sheet1中,其他工作表的Activate事件删除,每个工作表都Activate事件,复制粘贴不麻烦么?
超链接也全删了
Private Sub Worksheet_Activate()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.name <> Me.name Then sh.Visible = 2 '深度隐藏工作表
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal rng As Range) '单元格选择变更事件
Dim name$, pw$
If rng.Count > 1 Then Exit Sub '选择区域不运行
If rng.Value Like "进入*" Then '如果选中的单元格值包含“进入”
RE:
pw = InputBox("请输入执行密码", "提示")
If pw = "" Then Exit Sub '没有输入时退出程序
If pw <> "3217" And pw <> "901" Then
MsgBox "密码错误!", , "提示"
GoTo RE: '密码不对代码跳回RE:位置
End If
'以下密码正确时运行
name = Right(rng.Value, 3) & "-" & rng.Offset(, -1).Value
Debug.Print name '立即窗口预览name的值
Sheets(name).Visible = -1 '显示工作表
Sheets(name).Select '选择工作表
End If
End Sub |
|