來源：微信公眾號(hào)表妹的EXCEL
關(guān)于給工作表/工作薄設(shè)置密碼砚蓬，表妹之前已經(jīng)分享過幾篇推送了（推送11解虱、推送73），不過今天表妹要介紹的這種新方法摧扇，相信絕大多數(shù)小伙伴一定沒見過圣贸。什么？你不信扛稽？那就請(qǐng)隨表妹一起往下閱讀吧~~
~~~~~~設(shè)置密碼的分割線~~~~~~
問題描述
-------------------------------------
最終效果
-------------------------------------
制作方法
【1】添加“主頁”和“密碼頁”吁峻，兩者格式相同，密碼頁中為各Sheet頁設(shè)置密碼庇绽；
-------------------------------------
【2】選擇“主頁”锡搜，打開VBA編碼窗口，輸入如下代碼：
代碼如下：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column =2And Target.Row >1Then
If Sheets("密碼頁").Range(Target.Address) = Target.Value Then
Sheets(Cells(Target.Row,1).Value).Visible = -1
Else
Sheets(Cells(Target.Row,1).Value).Visible = 2
End If
End If
End Sub
代碼替換參數(shù)解釋:
Target.Column =2：“主頁”中瞧掺，密碼輸入位置為B列耕餐，即第2列；
Target.Row >1：“主頁”中辟狈，密碼輸入起始位置為第2行肠缔，即第1行以后；
Cells(Target.Row,1)：“主頁”中哼转，Sheet頁名稱列位于A列明未，即第1列。
-------------------------------------
【3】保存工作薄為啟用宏的工作币悸趟妥；
-------------------------------------
【4】在“主頁”中，各Sheet頁密碼處按Delete鍵刪除佣蓉，保存后披摄，大功告成！
-------------------------------------
怎么樣勇凭，學(xué)會(huì)了這個(gè)新技能疚膊，自信心是不是瞬間就爆棚了呢？勤奮好學(xué)的小伙伴虾标，趕快自己動(dòng)手試試寓盗，向身邊的同事盡情炫耀吧！
如果你覺得表妹的分享內(nèi)容很實(shí)用，歡迎分享給其他小伙伴呦傀蚌，獨(dú)樂樂不如眾樂樂嘛基显！
關(guān)注微信公眾號(hào)“表妹的EXCEL”，每周一喳张、三续镇、五獲取原創(chuàng)分享教程。加入“表妹的EXCELQQ群（345387282）”销部，和勤奮好學(xué)的小伙伴們一起快樂地學(xué)習(xí)EXCEL吧摸航！
