将每一个工作表隐藏，点击左侧的每个按钮输入密码才能跳转到对应的工作表

贾家口

将每一个工作表隐藏，点击左侧的每个按钮输入密码才能跳转到对应的工作表，同时不允许对目录中的任何一处做修改(见附件）

qdtzq

类模块了解一下

贾家口

qdtzq 发表于 2022-12-8 14:46
类模块了解一下

什么是类模块

qdtzq

那就别用控件了，用事件代替吧

aman1516

贾家口 发表于 2022-12-8 14:55
什么是类模块

建议改用 Active按键，不要用表单控件

类模块+工作表保护+工作薄保护

贾家口

qdtzq 发表于 2022-12-8 15:21
那就别用控件了，用事件代替吧

取消隐藏还是可以看到

3190496160

Private Sub Worksheet_Activate()
n = 1
For Each Sh In Sheets
    If Sh.Name <> "目录" Then
        n = n + 1
        Cells(n, 1) = Sh.Name
    End If
Next Sh
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 1 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    w = InputBox("请输入密码", "密码")
    If w <> "123" Then MsgBox "对不起，你无权打开工作表！": End
    With Sheets(T.Value)
        .Visible = True
        .Select
    End With
End If
End Sub

3190496160

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)    '当离开工作表时
If Sh.CodeName <> "目录" Then Sh.Visible = xlVeryHidden   '如果工作表的顺序号表名称不是"Sheet1"则深度隐藏该表
End Sub

3190496160

信息统计22.rar (64.23 KB, 下载次数: 8)

2022-12-8 18:37 上传

点击文件名下载附件

aman1516

用 Active按钮可直接执行 类模块的 cmbtn_Click 事件；
非要用 表单控件或图形 作按钮，也行
用 shp.OnAction = "CmbCik"  转换一下实现

再说，VBA设置密码，也就防下君子罢了