一个excel文件，输入不同的密码就可以打开不同的表格。

如果你也想实现，只需要简单几步，就可以把自已的表格改造成分权限管理。

操作步骤：

第一步、在你的表中插入两个表格。

• 主界面：一个空表就行。如果觉得单调可以插入图片或文字装修一下。

• 权限管理：这个是重头戏。第一列是密码，第一行是你要设置打开权限的所有工作表名称。正文位置是设置权限的，如果输入某个密码可以打开这个表，就在交叉的位置输入数字1，否则留空。

第二步: 在工作表标签右键单击，点击查看代码后会打开一个新的窗口，然后再点工程窗口中的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 y
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 y
End If
Next x
End Sub

---

示例文件下载：（把网址粘贴到电脑IE地址栏中按回车下载）

http://www.excelpx.com/home/upload/2015_11/temp_15110114471847.zip

---

点击左下角“阅读原文”查看兰色和小妖录制的数据透视表全套+函数全套+技巧全套+VBA编程全套视频教程。