如何获取Excel用户的唯一身份标识？能否获取Office关联账户邮箱？

你说得对，Application.UserName确实完全靠不住——用户随便在Excel选项里就能改掉，根本没法用来做唯一身份验证。不过要获取Office关联账户的邮箱或者更可靠的唯一标识，其实是有可行方案的，但确实存在一些限制，我给你拆解清楚：

1. 获取Office关联账户的邮箱与唯一ID #

对于Office 365或2016及以上版本，Excel提供了Accounts对象集合，可以直接访问当前关联的Office账户信息。用这段VBA代码就能拿到你需要的内容：

Sub GetOfficeAccountDetails()
    Dim acc As Account
    '遍历所有关联账户
    For Each acc In Application.Accounts
        '筛选出Office类型的账户（排除IMAP/POP等邮件账户）
        If acc.AccountType = xlAccountTypeOffice Then
            Debug.Print "关联邮箱: " & acc.SmtpAddress
            Debug.Print "唯一用户ID: " & acc.UserID
        End If
    Next acc
End Sub

这里的UserID是微软账户的全局唯一标识，用户完全无法修改，比Application.UserName可靠太多；而SmtpAddress就是你想要的关联邮箱地址，大部分情况下都能正常获取到。

2. 注意事项与限制 #

• 版本要求：这个方法仅支持Office 365/2016及以后的版本，旧版Office（2013及更早）没有Accounts对象，没法用这个方式。
• 宏权限：工作簿需要启用宏，并且用户的Excel信任中心设置允许访问账户信息（默认是允许的，但如果用户开了最高级别的宏安全限制，可能会被拦截）。
• 多账户场景：如果用户关联了多个Office账户，你需要预先约定好要验证的目标邮箱/ID，在代码里做精确匹配。

3. 邮箱获取失败的替代方案 #

有些特殊场景下（比如企业内部的账户策略限制），SmtpAddress可能返回空值，这时候可以用UserID来做验证——这个值是绝对唯一且不可修改的，完全能满足你“仅特定单个用户可使用”的需求。

4. 实操：工作簿打开时自动验证 #

如果要把验证逻辑落地，可以在工作簿的Workbook_Open事件里加入验证代码，一旦检测到非授权用户就直接关闭工作簿：

Private Sub Workbook_Open()
    '替换成你允许的目标邮箱或UserID
    Dim allowedIdentifier As String
    allowedIdentifier = "authorized-user@company.com"
    
    Dim isAuthorized As Boolean
    isAuthorized = False
    
    For Each acc In Application.Accounts
        If acc.AccountType = xlAccountTypeOffice Then
            '可以选择匹配邮箱或UserID
            If acc.SmtpAddress = allowedIdentifier Or acc.UserID = allowedIdentifier Then
                isAuthorized = True
                Exit For
            End If
        End If
    Next acc
    
    If Not isAuthorized Then
        MsgBox "你没有权限使用此工作簿。", vbCritical
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

⚠️ 提醒：懂VBA的用户可能会通过禁用宏来绕过这个验证，如果需要更严格的安全防护，可以考虑结合Excel的信息权限管理（IRM），不过这个功能需要企业版Office或Azure权限配置，门槛相对较高。

内容的提问来源于stack exchange，提问作者Chri.s