动态数据脱敏：VBA实现权限分级显示

学习如何用VBA根据用户权限动态隐藏或模糊敏感数据（如身份证号、工资），无需插件。 · 难度：入门 · +10XP

动态数据脱敏：VBA实现权限分级显示

在企业报表中，不同角色查看同一工作表时，敏感数据的可见性应不同。本教程讲授如何利用VBA的Worksheet_Activate事件读取用户登录名，并结合命名区域权限表自动隐藏或打码指定列。你将学到如何通过Range.Value与Range.NumberFormat临时替换为“***”，并在保存时自动还原原始数据，实现零泄密工作流。

Private Sub Worksheet_Activate()
    Dim rng As Range, cell As Range
    Set rng = Range("SensitiveData")
    If Environ("username") <> "admin" Then
        For Each cell In rng
            If Len(cell.Value) > 0 Then
                cell.Value = "***"
                cell.Font.Color = vbRed
            End If
        Next cell
    End If
End Sub