Excel通过宏控制工作表可见性的漏洞问题求助

阿华AIGC实验室

2026-4-23

大家好，我最近在做Excel文件的权限控制，想让「OTE ratios」工作表只对指定的几个人可见，于是写了一个工作簿打开时触发的宏——打开文件时先把目标表设为深度隐藏，新建临时「check」工作表，把允许访问的用户名列进去，用公式判断当前打开文件的用户名是否在列表里，要是符合就显示目标表，最后删掉临时表。

代码如下：

Private Sub Workbook_Open()

Application.ScreenUpdating = False

Sheets("OTE ratios").Visible = xlVeryHidden

Dim IFFORMULA As String

IFFORMULA = "=IF(OR(AA1=A2,AA2=AA1, AA3=AA1,AA4=AA1,AA5=AA1,AA6=AA1,AA7=AA1,AA8=AA1),""Yes"", ""No"")"

Sheets.Add.Name = "check"

Worksheets("check").Range("A2").Value = Worksheets("January").Range("A2").Value

Worksheets("check").Range("AB1").Value = IFFORMULA

Worksheets("check").Range("AA1").Value = Application.UserName

Worksheets("check").Range("AA2").Value = "USER1"

Worksheets("check").Range("AA3").Value = " USER2"

Worksheets("check").Range("AA4").Value = " USER3"

Worksheets("check").Range("AA5").Value = " USER4"

Worksheets("check").Range("AA6").Value = " USER5"

'DM goes here

Worksheets("check").Range("AA8").Value = " USER6"

Worksheets("check").Calculate

''''IF statement

If Worksheets("check").Range("AB1").Value = "Yes" Then

Sheets("OTE ratios").Visible = xlSheetVisible

End If

''''remove the sheet

Application.DisplayAlerts = False

Worksheets("check").Delete

Application.DisplayAlerts = True

Application.ScreenUpdating = True

Worksheets("January").Activate

End Sub

但现在碰到个棘手的问题：如果用户禁用宏打开文件，「OTE ratios」工作表就不再是深度隐藏状态，所有人都能直接看到内容，完全违背了权限控制的初衷。有没有大佬能帮忙解决这个漏洞？

问题分析与可行解决方案

其实这个问题的核心逻辑很清晰：你的宏是在文件打开后才执行隐藏操作的，如果用户禁用宏，这段隐藏代码根本没机会运行，工作表会保持上次保存时的可见状态。可以从这几个方向解决：

提前设置工作表为深度隐藏，宏仅负责显示
先手动把「OTE ratios」设置为xlVeryHidden（可以通过VBA编辑器的属性窗口修改，或者运行一次宏后保存文件），让它默认处于深度隐藏状态。宏的逻辑改成：打开文件时先检查用户权限，只有允许的用户才把表改成可见，不允许的话就保持隐藏。这样即使禁用宏，表还是深度隐藏的，普通用户找不到。
保护工作簿结构
给工作簿结构设置保护密码（右键工作簿标签→保护工作簿→勾选「结构」，设置密码），这样就算工作表不是深度隐藏，用户也没法通过右键菜单或工作表标签管理来显示隐藏的表。虽然密码不是绝对安全，但能挡住大部分不懂技术的普通用户。

优化宏的判断逻辑（可选）
你原来的公式判断太繁琐了，可以改成用数组存允许的用户名，循环判断的方式，代码更简洁也不容易出错：

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    
    ' 先确保目标表默认是深度隐藏
    Sheets("OTE ratios").Visible = xlVeryHidden
    
    ' 定义允许访问的用户列表
    Dim allowedUsers As Variant
    allowedUsers = Array("USER1", "USER2", "USER3", "USER4", "USER5", "USER6")
    Dim currentUser As String
    currentUser = Trim(Application.UserName)
    Dim isAllowed As Boolean
    isAllowed = False
    
    ' 循环判断当前用户是否在列表中
    For Each user In allowedUsers
        If Trim(user) = currentUser Then
            isAllowed = True
            Exit For
        End If
    Next
    
    ' 如果是允许用户，显示目标表
    If isAllowed Then
        Sheets("OTE ratios").Visible = xlSheetVisible
    End If
    
    Application.ScreenUpdating = True
    Worksheets("January").Activate
End Sub

这样还省去了创建临时表的步骤，运行效率也更高。

最后要提一句：Excel的这种权限控制属于「软保护」，如果遇到懂技术的用户，还是可能通过第三方工具或VBA编辑器绕过，但对于普通办公场景来说，这些方法已经足够满足需求了。

备注：内容来源于stack exchange，提问作者wisniadj