九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

一個excel文件，輸入不同的密碼就可以打開不同的表格。

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

操作步驟：

第一步、在你的表中插入兩個表格。

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

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

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

復(fù)制下面代碼：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim y, arr
arr = Sheets('權(quán)限管理').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('權(quán)限管理').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地址欄中按回車下載）

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

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