一個(gè)excel文件通過設(shè)置不同的密碼來訪問不同的內(nèi)容

1、一個(gè)Excel文件通過設(shè)置不同的密碼來訪問不同的內(nèi)容2016.4.1615一個(gè)一個(gè)Excel文件通過設(shè)置不同的密碼來訪問不同的內(nèi)容文件通過設(shè)置不同的密碼來訪問不同的內(nèi)容注：此功能需使用注：此功能需使用VBA代碼代碼教程中教程中excel版本為版本為office20131.首先我們新建一個(gè)excel文件，并將工作表Sheet1重命名為“權(quán)限管理”，然后根據(jù)自己的需求建立一個(gè)密碼權(quán)限管理表格。（圖（圖1）如圖1所示，按照?qǐng)D片的格式，橫向第一

2、行為：“操作密碼”、“權(quán)限管理”、“樣本1”、“樣本2”、“樣本3”……其中“操作密碼”和“權(quán)限管理”為必須值，后面的“樣本1”等為用戶自定義值。2.根據(jù)“權(quán)限管理”中第一行的內(nèi)容來建立新的工作表。筆者這里權(quán)限管理中提供了3個(gè)工作表，對(duì)應(yīng)的就在下面添加三個(gè)工作，并且工作表的名字要與權(quán)限管理表中的名字對(duì)應(yīng)。如圖2一個(gè)Excel文件通過設(shè)置不同的密碼來訪問不同的內(nèi)容2016.4.16354.完成之后，我們?cè)凇皺?quán)限管理”工作表上右擊選擇“查看

3、代碼”在彈出的VBA對(duì)話框中雙擊左側(cè)的“ThisWkbook”在彈出的窗口中插入以下代碼并保存。如圖4代碼如下：PrivateSubWkbook_BefeClose(CancelAsBoolean)Dimyarrarr=Sheets(“權(quán)限管理“).Range(“A1“).CurrentRegionFy=2ToUBound(arr2)Sheets(arr(1y)).Visible=2NextyEndSubPrivateSubWkbook

4、_Open()OnErrResumeNextDimxysrarrsr=Application.InputBox(“請(qǐng)輸入密碼:““登陸“)arr=Sheets(“權(quán)限管理“).Range(“A1“).CurrentRegionFx=2ToUBound(arr)IfVal(sr)=arr(x1)ThenFy=2ToUBound(arr2)Ifarr(xy)=1ThenSheets(arr(1y)).Visible=1Sheets(arr(