? ? 有一個(gè)excel文件，包括有N個(gè)工作表

? ? ? 我們可以給這些工作表各自添加不同的密碼，只有輸入正確密碼才可以查看。

是不是很高級(jí)、有用的樣子！其實(shí)設(shè)置方法很簡(jiǎn)單，跟蘭色一起做吧。

操作步驟：

? ? ? ? 1、添加一個(gè)叫“主界面”的工作表，在E和F列從第4行起設(shè)置一個(gè)訪問(wèn)權(quán)限界面。E列是你的excel文件中要設(shè)置訪問(wèn)密碼的工作表的名稱，F(xiàn)列用來(lái)輸入和驗(yàn)證密碼。刪除密碼或密碼輸入錯(cuò)誤，表格就會(huì)隱藏起來(lái)。

主界面

? ? ? 2、添加一個(gè)叫“設(shè)置”的工作表，表格樣式和“主界面”完全一樣，只是E列輸入每個(gè)工作表的訪問(wèn)密碼。

設(shè)置

? ? ? 3、在工作表標(biāo)簽上右鍵 - 查看代碼 - 打開(kāi)一個(gè)叫visible basic...的窗口，在窗口左上角單擊“主界面”工作表名稱，然后把下面的代碼復(fù)制到右側(cè)的空白處。

代碼

VBA代碼：

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

? If Target.Column = 5 And Target.Row > 4 Then

? ? If Sheets("設(shè)置").Range(Target.Address) = Target.Value Then

? ? ? Sheets(Cells(Target.Row, 4).Value).Visible = -1

? ? Else

? ? ? Sheets(Cells(Target.Row, 4).Value).Visible = 2

? ? End If

? End If

End Sub

? ? ? 4、文件 - 另存為 - 保存類型選擇為“Excel 啟用宏的工作簿"（excel2003版 跳過(guò)此步）

保存

設(shè)置完成！

? ? ? 注意：在關(guān)閉表格時(shí)，要把密碼一個(gè)個(gè)的刪除，以隱藏工作表，這樣其他人打開(kāi)表格只能通過(guò)輸入密碼來(lái)查看了。