欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

一個(gè)excel文件，輸入不同的密碼就可以打開(kāi)不同的表格。

如果你也想實(shí)現，只需要簡(jiǎn)單幾步，就可以把自已的表格改造成分權限管理。

操作步驟：

第一步、在你的表中插入兩個(gè)表格。

• 主界面：一個(gè)空表就行。如果覺(jué)得單調可以插入圖片或文字裝修一下。

• 權限管理：這個(gè)是重頭戲。第一列是密碼，第一行是你要設置打開(kāi)權限的所有工作表名稱(chēng)。正文位置是設置權限的，如果輸入某個(gè)密碼可以打開(kāi)這個(gè)表，就在交叉的位置輸入數字1，否則留空。

第二步: 在工作表標簽右鍵單擊，點(diǎn)擊查看代碼后會(huì )打開(kāi)一個(gè)新的窗口，然后再點(diǎn)工程窗口中的thisworkbook并把下面的代碼粘貼到右側的窗口中，最后把本文件另存為可以啟用宏的文件類(lèi)型。下面是動(dòng)畫(huà)演示。

復制下面代碼：

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

示例文件下載：（把網(wǎng)址粘貼到電腦IE地址欄中按回車(chē)下載）

http://www.excelpx.com/home/upload/2015_11/temp_15110114471847.zip

點(diǎn)擊左下角“閱讀原文”查看蘭色和小妖錄制的數據透視表全套+函數全套+技巧全套+VBA編程全套視頻教程。