一个Excel文件通过设置不同的密码来访问不同的内容.docVIP

一个Excel文件通过设置不同的密码来访问不同的内容 2016.4.16 PAGE2 / NUMPAGES5 一个Excel文件通过设置不同的密码来访问不同的内容 注：此功能需使用VBA代码 教程中excel版本为office 2013 首先我们新建一个excel文件，并将工作表Sheet1重命名为“权限管理”，然后根据自己的需求建立一个密码权限管理表格。 （图1） 如图1所示，按照图片的格式，横向第一行为：“操作密码”、“权限管理”、“样本1”、“样本2”、“样本3”…… 其中“操作密码”和“权限管理”为必须值，后面的“样本1”等为用户自定义值。 根据“权限管理”中第一行的内容来建立新的工作表。笔者这里权限管理中提供了3个工作表，对应的就在下面添加三个工作，并且工作表的名字要与权限管理表中的名字对应。如图2 （图2） 竖列第一列根据自己的情况设置相对应的密码，并且在右侧所交叉的位置输入数字1，否则留空。并且在下方再创建一个空白的工作表（可以自定义命名，笔者重命名为“空”）如图3 （图3） 完成之后，我们在“权限管理”工作表上右击选择“查看代码” 在弹出的VBA对话框中双击左侧的“ThisWorkbook”在弹出的窗口中插入以下代码并保存。如图4 代码如下： 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 （图4） 代码保存完成之后关闭窗口返回到工作表界面，选择工作表的另存为（不能直接关闭保存）在弹出的另存为选项框中除了要选择保存地址和文件名外还需要将保存类型更换成“Excel启用宏的工作簿” 之后再点击保存即可！如图5 （图5） 测试：打开保存的文件，则会弹出输入密码框，赶紧输入不同的密码来查看各自的内容吧！如图6 （图6）