一个excel文件,输入不同的密码就可以打开不同的表格。 如果你也想实现,只需要简单几步,就可以把自已的表格改造成分权限管理。 操作步骤: 第一步、在你的表中插入两个表格。
第二步: 在工作表标签右键单击,点击查看代码后会打开一个新的窗口,然后再点工程窗口中的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./home/upload/2015_11/temp_15110114471847.zip
点击左下角“阅读原文”查看兰色和小妖录制的数据透视表全套+函数全套+技巧全套+VBA编程全套视频教程。
|