基于MAC地址的Microsoft Excel工作表及带宏文件授权访问方案问询

我来帮你搞定这个需求——通过MAC地址校验实现Excel文件的设备授权，既能管理允许访问的设备列表，又能让文件在非授权设备上无法正常使用。下面是一套可落地的实操方案：

一、核心逻辑拆解 #

咱们的核心思路很简单：

1. 当Excel文件打开时，用VBA代码获取当前设备的物理MAC地址（排除虚拟网卡）
2. 把获取到的MAC和预存在文件里的授权MAC列表做比对
3. 如果匹配成功，正常打开文件；不匹配就直接关闭文件，同时提示未授权
4. 授权列表可以存在隐藏工作表里，方便你随时添加/删除设备

二、分步实现教程 #

1. 编写VBA函数获取本地MAC地址 #

先写一个能准确获取物理网卡MAC的函数，避免把虚拟网卡的MAC算进去：

Function GetPhysicalMAC() As String
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim strMAC As String
    
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapter Where PhysicalAdapter = True AND NetConnectionID IS NOT NULL")
    
    For Each objItem In colItems
        strMAC = objItem.MACAddress
        If strMAC <> "" Then
            ' 格式化MAC地址，统一为大写无分隔符格式，避免格式不匹配
            strMAC = Replace(UCase(strMAC), ":", "")
            GetPhysicalMAC = strMAC
            Exit Function
        End If
    Next
    
    GetPhysicalMAC = "" ' 如果没找到物理网卡，返回空
End Function

2. 创建授权MAC管理列表 #

• 新建一个工作表，命名为AuthorizedDevices
• 在A列输入授权的MAC地址（注意和函数返回的格式一致：大写无分隔符，比如001A2B3C4D5E），B列可以备注设备名称/用户信息，方便管理
• 右键这个工作表，选择「隐藏」，然后保护工作簿结构（审阅选项卡→保护工作簿→勾选「结构」，设置密码），防止用户随意查看或修改

3. 实现文件打开时的校验逻辑 #

打开VBA编辑器（按Alt+F11），找到ThisWorkbook，双击打开，粘贴以下代码到Workbook_Open事件里：

Private Sub Workbook_Open()
    Dim currentMAC As String
    Dim authorizedSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim isAuthorized As Boolean
    
    ' 获取当前设备MAC
    currentMAC = GetPhysicalMAC()
    
    ' 如果获取MAC失败，直接关闭文件
    If currentMAC = "" Then
        MsgBox "无法获取设备MAC地址，文件将关闭。", vbCritical
        ThisWorkbook.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 打开授权列表工作表（注意这里要取消隐藏，校验后再隐藏）
    Set authorizedSheet = ThisWorkbook.Worksheets("AuthorizedDevices")
    authorizedSheet.Visible = xlSheetVisible
    lastRow = authorizedSheet.Cells(Rows.Count, "A").End(xlUp).Row
    isAuthorized = False
    
    ' 遍历授权列表比对MAC
    For i = 2 To lastRow ' 假设第一行是表头
        If authorizedSheet.Cells(i, "A").Value = currentMAC Then
            isAuthorized = True
            Exit For
        End If
    Next i
    
    ' 重新隐藏授权列表
    authorizedSheet.Visible = xlSheetHidden
    
    ' 校验结果处理
    If Not isAuthorized Then
        MsgBox "当前设备未授权，文件将关闭。", vbCritical
        ThisWorkbook.Close SaveChanges:=False
    Else
        MsgBox "授权验证通过，欢迎使用！", vbInformation
    End If
End Sub

4. 加固保护措施 #

• 保护VBA工程：在VBA编辑器里，右键你的工程名称→「VBAProject属性」→「保护」选项卡，勾选「锁定工程以便查看」，设置密码，防止别人篡改代码
• 保存为宏启用格式：把文件保存为.xlsm格式，否则宏无法运行

三、注意事项 #

• 有些设备有多个物理网卡（比如有线+无线），你可以把多个MAC都加入授权列表，确保设备在不同网络环境下都能正常打开
• 这个方案依赖Excel启用宏，所以要提醒授权用户在打开文件时选择「启用内容」
• 这是针对普通场景的保护方案，对于专业破解者来说可能有绕过方法，但足以满足大多数设备授权管理的需求
• 如果需要批量管理授权设备，可以把授权列表导出到外部加密文件，但会增加复杂度，普通场景用隐藏工作表足够

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