如何基于登录邮箱或作者身份按用户隐藏共享工作簿工作表

完全可以通过当前登录的Office 365账户邮箱实现工作表定向隐藏，落地成本远低于收集PC用户名的方案，不需要对接Outlook联系人做额外匹配，也不依赖固定的本地环境信息。

注意：文档作者标识不适合作为权限判断依据——这个属性是文件的固定元数据，不会随当前打开文件的用户动态变化，无法做实时权限校验；Outlook联系人存储在本地，不同设备的联系人数据不一致，匹配逻辑稳定性差，不推荐使用。

• 共享文件存储在OneDrive/SharePoint，使用新版Office共同编辑模式，不要启用旧版的「共享工作簿（旧版）」兼容功能
• 所有协作者使用自己的微软工作/学校账户登录Office后打开文件，禁止脱机本地打开
• 提前整理所有协作者的办公邮箱（这类信息一般在企业通讯录可直接获取，不需要单独找用户收集本地信息）
• 提前知晓：VBA实现的是视图层面的隔离，不是强加密，有VBA基础的用户可以通过禁用宏、破解VBA工程密码绕过限制，敏感数据建议搭配SharePoint本身的库/列表权限做双层管控，这个方案适用于普通协作场景的视图防呆。

1. 建权限配置表 #

在工作簿内新建一个名为权限配置的工作表，做两列映射：

• A列：协作者的完整登录邮箱（例：zhangsan@company.com）
• B列：该用户可访问的非主页工作表名称，多个表用英文逗号分隔（例："张三项目表,张三考核表"）
  所有用户默认拥有主工作表（比如命名为主页）的访问权限，不需要在配置表中单独标注。
  配置完成后，把权限配置工作表的可见性设为xlVeryHidden，普通用户在工作表右键菜单里看不到这个表，也无法直接取消隐藏。

2. 写入VBA核心逻辑 #

按Alt+F11打开VBA编辑器，双击左侧工程资源管理器中的ThisWorkbook对象，粘贴以下代码：

' 替换成你自己的管理员邮箱
Const ADMIN_MAIL As String = "admin@yourcompany.com"
Const MAIN_SHEET As String = "主页"
Const CONFIG_SHEET As String = "权限配置"

Private Sub Workbook_Open()
    Dim currentMail As String
    Dim ws As Worksheet
    Dim allowSheetStr As String
    Dim allowSheetArr As Variant
    Dim i As Long
    Dim accessFlag As Boolean
    
    ' 读取当前登录的Office 365账户邮箱
    On Error Resume Next
    currentMail = Application.Username
    ' 兼容旧版Office读不到邮箱的情况，从COM加载项读账户信息
    If InStr(currentMail, "@") = 0 Then
        Dim addin As Object
        For Each addin In Application.COMAddIns
            If InStr(addin.Description, "Microsoft 365") > 0 Or InStr(addin.Description, "Office 365") > 0 Then
                currentMail = addin.Object.CurrentUser.EmailAddress
                Exit For
            End If
        Next
    End If
    On Error GoTo 0
    
    ' 读不到邮箱直接终止，避免误隐藏所有工作表
    If currentMail = "" Then
        MsgBox "无法识别当前登录账户，请使用Office 365账户登录后重新打开文件", vbExclamation
        Exit Sub
    End If
    
    ' 管理员直接显示所有工作表，方便维护
    If currentMail = ADMIN_MAIL Then
        For Each ws In ThisWorkbook.Worksheets
            ws.Visible = xlSheetVisible
        Next
        Exit Sub
    End If
    
    ' 从配置表匹配当前用户的权限范围
    allowSheetStr = Application.VLookup(currentMail, ThisWorkbook.Sheets(CONFIG_SHEET).Range("A:B"), 2, False)
    If IsError(allowSheetStr) Then
        ' 不在权限列表里的用户，只显示主页
        For Each ws In ThisWorkbook.Worksheets
            ws.Visible = IIf(ws.Name = MAIN_SHEET, xlSheetVisible, xlSheetVeryHidden)
        Next
        Exit Sub
    End If
    
    allowSheetArr = Split(allowSheetStr, ",")
    ' 逐个遍历工作表设置可见性
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = MAIN_SHEET Or ws.Name = CONFIG_SHEET Then
            ws.Visible = xlSheetVeryHidden ' 配置表始终对普通用户隐藏
            If ws.Name = MAIN_SHEET Then ws.Visible = xlSheetVisible
        Else
            accessFlag = False
            For i = LBound(allowSheetArr) To UBound(allowSheetArr)
                If Trim(allowSheetArr(i)) = ws.Name Then
                    accessFlag = True
                    Exit For
                End If
            Next
            ws.Visible = IIf(accessFlag, xlSheetVisible, xlSheetVeryHidden)
        End If
    Next
End Sub

' 拦截普通用户手动切换到隐藏工作表的操作
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim currentMail As String
    On Error Resume Next
    currentMail = Application.Username
    If InStr(currentMail, "@") = 0 Then
        Dim addin As Object
        For Each addin In Application.COMAddIns
            If InStr(addin.Description, "Microsoft 365") > 0 Or InStr(addin.Description, "Office 365") > 0 Then
                currentMail = addin.Object.CurrentUser.EmailAddress
                Exit For
            End If
        Next
    End If
    
    ' 管理员不做拦截
    If currentMail = ADMIN_MAIL Then Exit Sub
    ' 激活的是隐藏表直接跳回主页
    If Sh.Visible <> xlSheetVisible Then
        MsgBox "你没有当前工作表的访问权限", vbExclamation
        ThisWorkbook.Sheets(MAIN_SHEET).Activate
    End If
End Sub

3. 锁定VBA工程 #

在VBA编辑器顶部菜单栏依次点击「工具 > VBAProject 属性 > 保护」，勾选「锁定工程以供查看」，设置独立密码，防止普通用户篡改代码或查看权限配置。

• 必须提醒所有协作者打开文件时启用宏，宏被禁用的情况下权限逻辑不会触发，无法实现工作表隐藏
• 正式全量发布前，找2-3个不同部门的协作者测试邮箱读取逻辑，确认当前Office版本能正确读到登录邮箱，避免出现权限匹配失效的问题
• 如果后续需要新增协作者，直接在权限配置表加一行对应邮箱和可访问表名即可，不需要修改代码

内容的提问来源于stack exchange，提问作者wrongMAJOR