如何在 Excel 中為不同使用者分別設定工作表的密碼保護？

作者Xiaoyang修改日期2025-04-16

在 Excel 中，您可以為不同的工作表設定各自的密碼，讓一位使用者能用一組密碼修改某個工作表，另一位使用者則用另一組密碼修改另一個工作表。但若您希望每位使用者僅能檢視並存取屬於自己的工作表，Excel 能做到嗎？

若要個別保護每個工作表並限制使用者對工作表的存取權限，請套用以下 VBA 程式碼：

1. 開啟一個新工作簿，並建立一個名為「Main」的新工作表，如下圖所示：

Excel 中主工作表的螢幕截圖，其中已建立第一個工作表

2. 接著按下「Alt」+「F11」鍵，開啟「Microsoft Visual Basic for Applications」視窗；在左側「專案－VBAProject」窗格中，按兩下「ThisWorkbook」以開啟空白程式碼模組，然後將下列 VBA 程式碼複製並貼上至程式碼視窗中，如下圖所示：

VBA 程式碼：為使用者個別設定工作表密碼保護

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

Visual Basic for Applications 視窗的螢幕截圖，顯示用於為個別工作表設定密碼的 VBA 程式碼

3. 接著，將游標移至「Private Sub Workbook_Open（）」指令碼的結尾處，按下「F5」鍵執行該程式碼。此時將彈出提示方塊，請輸入您要為該使用者建立工作表的使用者名稱，如下圖所示：

Excel 中提示使用者輸入名稱以建立新工作表的對話框螢幕截圖

4. 接著點擊「確定」按鈕，並在隨即出現的提示方塊中輸入用於保護此工作表的密碼，如下圖所示：

Excel 中提示使用者輸入密碼以保護新建立工作表的對話框螢幕截圖

5. 繼續點擊「確定」按鈕，系統將立即建立一個以該使用者名稱命名的新工作表，您可依需求為該使用者建立資料，如下圖所示：

Excel 中以使用者名稱命名的新建立工作表螢幕截圖

6. 重複上述步驟 3 至步驟 5，逐一建立您所需使用的其他工作表。

7. 建立完工作表後，請點擊「檔案」>「另存新檔」以儲存目前的工作簿。在「另存新檔」對話方塊中輸入檔案名稱，並從「指定保存格式」下拉清單中選取「Excel 啟用巨集活頁簿（*.xlsm）」格式，如下圖所示：

Excel「另存新檔」對話框的螢幕截圖，顯示「儲存類型」下拉式清單中的 Excel 啟用巨集活頁簿 (*.xlsm)

8. 接著點擊「儲存」按鈕，即可儲存此檔案。

9. 接著關閉活頁簿並重新開啟，然後在編輯欄頂端點擊「啟用內容」，即可啟動程式碼。

Excel 中用於啟用 VBA 程式碼的「啟用內容」按鈕螢幕截圖

10. 此時將彈出提示方塊，提醒您輸入使用者名稱與密碼，以便以特定使用者身分開啟對應的工作表。

11. 最後，當您將此活頁簿傳送給其他使用者時，請務必提供該使用者對應的使用者名稱與密碼。他們僅可開啟並編輯自己的工作表，且無法檢視其他工作表。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多