一个excel文件中用不同密码实现打开不同表格

ALT+F11打开VBAProject

CTRL+R找到ThisWorkBook

双击打开粘贴如下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim y, arr
arr = Sheets("权限管理").Range("A1").CurrentRegion
For y = 2 To UBound(arr, 2)
Sheets(arr(1, y)).Visible = 2
Next
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Dim x, y, sr, arr
sr = Application.InputBox("请输入密码：", "登陆")
arr = Sheets("权限管理").Range("A1").CurrentRegion
For x = 2 To UBound(arr)
If Val(sr) = arr(x, 1) Then
For y = 2 To UBound(arr, 2)
If arr(x, y) = 1 Then
Sheets(arr(1, y)).Visible = -1
Sheets(arr(1, y)).Activate
End If
Next
End If
Next
End Sub

新建权限管理表单

如图格式

效果如图

注意事项

• 表格命名不能为纯数字，不然会造成索引错误