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

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

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

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