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

  一个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
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

 原文地址：http://www.360doc.com/showweb/0/0/987721820.aspx