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