Excel最強(qiáng)加密方法來了! excel表格中每個sheet設(shè)獨(dú)立密碼的技巧
我要評論昨天有學(xué)員問道：如何將Excel中的工作表，每個工作表設(shè)置不一樣的密碼，只有輸入密碼，才能看到對應(yīng)的數(shù)據(jù)，防止數(shù)據(jù)泄露。想要實(shí)現(xiàn)這樣的效果，通過Excel中的默認(rèn)功能是不能行，只能通過VBA代碼了，我們來具體演示下：
一、登錄界面
首先我們需要新建一個sheet，并且將其的工作表名稱名稱為：登錄界面，之后就需要在當(dāng)前的窗口中來插入控件了
首先點(diǎn)擊【開發(fā)工具】然后點(diǎn)擊找到【文本框】來創(chuàng)建一個文本框，之后點(diǎn)擊【文本框】點(diǎn)擊鼠標(biāo)右鍵找到【姓名】將【名稱】更改為【txtPassword】
隨后繼續(xù)點(diǎn)擊插入控件，來插入一個按鈕，插入按鈕后也是點(diǎn)擊控件，點(diǎn)擊右鍵找到【屬性】做2處修改，【名稱】更改為【btnUnlock】然后將【Caption】更改為【確定】最后調(diào)整下大小，放在一個合適的位置即可
二、代碼1
復(fù)制下方代碼，按下ALT+F11打開VBA窗口，之后在右側(cè)的窗口中找到【ThisWorkbook】，雙擊它，將代碼粘貼到里面即可
Private Sub Workbook_Open()
' 工作簿打開時隱藏所有數(shù)據(jù)表，只顯示登錄界面
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "登錄界面" Then ws.Visible = xlSheetVeryHidden
Next ws
Sheets("登錄界面").Visible = xlSheetVisible
End Sub
三、代碼2
點(diǎn)擊剛才創(chuàng)建的【文本框】然后點(diǎn)擊鼠標(biāo)右鍵，找到【查看代碼】將下面的代碼粘貼到代碼區(qū)域即可
密碼與工作表的名稱需要根據(jù)自己的實(shí)際數(shù)據(jù)修改，在下面的代碼中，左側(cè)的是密碼，右側(cè)的是工作表名稱，只需修改雙引號中的內(nèi)容為自己的數(shù)據(jù)即可
最后將文件的格式另存為XLSM格式，保存文件，關(guān)閉文件，重新打開即可，到此設(shè)置完畢
Private Sub btnUnlock_Click() Dim targetSheet As String Dim pwd As String Dim sheetFound As Boolean pwd = txtPassword.Text sheetFound = False ' 定義工作表密碼映射（實(shí)際使用中建議加密存儲） Select Case pwd Case "pass1": targetSheet = "財務(wù)部" ' 確保名稱與實(shí)際表名一致 Case "pass2": targetSheet = "行政部" Case "pass3": targetSheet = "人事部" Case "pass4": targetSheet = "市場部" Case "pass5": targetSheet = "總經(jīng)辦" Case Else MsgBox "密碼錯誤！", vbCritical Exit Sub End Select ' 檢查工作表是否存在 On Error Resume Next sheetFound = (Not Sheets(targetSheet) Is Nothing) On Error GoTo 0 If sheetFound Then ' 顯示目標(biāo)工作表 Sheets(targetSheet).Visible = xlSheetVisible Sheets(targetSheet).Activate ' 清空密碼框 txtPassword.Text = "" Else MsgBox "錯誤：找不到工作表 '" & targetSheet & "'！", vbCritical End If End Sub
以上就是今天分享的全部內(nèi)容，大家可以試一下，操作還是比較簡單的~
推薦閱讀：excel中用COUNTIF和SUMIF統(tǒng)計(jì)老是出錯怎么辦? 加個星號輕松解決
相關(guān)文章
到底有多吃香? 我居然靠學(xué)好excel函數(shù)公式找到財務(wù)工作
財務(wù)設(shè)計(jì)很多數(shù)據(jù)處理，熟練掌握excel各種函數(shù)和公式是很有必要的，今天我們就挑選4個函數(shù)公式案例進(jìn)行說明2025-07-168個案例帶你深入了解excel中0和TEXT函數(shù)搭配技巧
excel中很多函數(shù)都可以跟0結(jié)合，比如TEXT函數(shù)，很多朋友對這一塊知識并不了解，今天跟著小編重新來認(rèn)識0，分成4大類型，8個案例，詳細(xì)如下文所述2025-07-16Excel中神奇的拆分函數(shù)! 一文講透TextSplit函數(shù)從入門到精通
在Excel和WPS新增的幾十個函數(shù)中，如果按實(shí)用性+功能性排名，textsplit排第二，無函數(shù)敢排第一，下面我們就來學(xué)習(xí)Textsplit函數(shù)的使用技巧,學(xué)會這個函數(shù)，文本拆分不再難2025-07-15再復(fù)雜的查找也能輕松搞定! excel中Xlookup函數(shù)的正則表達(dá)式用法
在日常Excel數(shù)據(jù)處理中，查找匹配是一項(xiàng)核心需求，支持正則表達(dá)式模式后，通配符匹配基本就可以說拜拜了，下面我們就來看看使用技巧2025-07-15Excel數(shù)據(jù)篩選完美搭檔! FILTER函數(shù)+切片器吊打下拉菜單
Excel中誰篩選市場件操作，很多時候?yàn)榱朔奖阄覀儠孟吕藛蝸韺?shí)現(xiàn)，今天就跟大家分享一個FILTER函數(shù)+切片器的高效組合，數(shù)據(jù)切換篩選輕松搞定2025-07-093個案例讓你了解矩陣相乘! Excel中最難懂的函數(shù)之一MMULT函數(shù)
MMULT函數(shù)，在Excel中被描述為“返回兩個數(shù)組的矩陣積”，這精準(zhǔn)地揭示了其核心功能，其原理與消元法類似，通過對矩陣進(jìn)行操作來求解線性方程組，本文通過3個案例讓你了解2025-07-03掌握這些公式就夠了! Excel表格數(shù)據(jù)排名攻略
還在為排名混亂抓狂？今天我們分享幾種方法讓你從菜鳥秒變大神！輕松應(yīng)對各種排名需求，詳細(xì)請看下文介紹2025-07-01用1個公式替代8種操作! excel中textsplit拆分函數(shù)高級用法
你是否在Excel中遇到過需要將一個字符串拆分成多個部分的情況？TEXTSPLIT函數(shù)就是你的救星！這個函數(shù)可以輕松幫你根據(jù)分隔符將字符串拆分開2025-06-30groupby函數(shù)是一個超級透視器: excel不加班搞定數(shù)據(jù)分類匯總
在處理數(shù)據(jù)時，我們常常需要對數(shù)據(jù)進(jìn)行分類匯總，讓數(shù)據(jù)變得更有條理，方便分析，今天就給大家講講 Excel 里超好用的 GROUPBY 函數(shù)，學(xué)會它，數(shù)據(jù)匯總的難題就能輕松解決啦2025-06-28excel中的強(qiáng)大映射工具! map函數(shù)excel正確使用方法
在小學(xué)的數(shù)學(xué)課上，我們可能就已經(jīng)接觸過“映射”這個概念：一組數(shù)字通過某種操作轉(zhuǎn)換成另一組數(shù)字，今天我們就來看看excel中map函數(shù)作為強(qiáng)大映射工具的用法2025-06-28