KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中为不同用户设置密码，以分别保护各个工作表？

作者小杨修改日期

在 Excel 中，您可以为不同的工作表设置不同的密码，这意味着一位用户可用一个密码修改某个工作表，而另一位用户则可用另一个密码修改另一个工作表。但有时，您可能希望每位用户只能查看和访问自己的工作表——这在 Excel 中能否实现？

若要单独保护每个工作表并限制用户对工作表的访问权限，请应用以下 VBA 代码：

1. 打开一个新工作簿，并新建一个名为“Main”的工作表，如下图所示：

Excel 中主工作表的截图，其中已创建第一个工作表

2. 随后按下“Alt”+“F11”组合键，打开“Microsoft Visual Basic for Applications”窗口；在左侧的“Project —— 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. 最后，将此工作簿发送给其他用户时，请一并提供对应的用户名和密码。每位用户仅可打开并编辑自己的工作表，无法查看其他人的工作表。

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱