Excel VBA需求：调整工作簿A登录逻辑，适配跨工作簿调用场景

要实现你需求的功能，核心是用Excel Application级的自定义属性来传递调用方的用户信息——这种方式不需要在工作簿A中硬编码任何调用方的标识，所有调用方只要遵循统一的传递规则，A就能自动识别并优先使用调用方的用户信息。以下是分步实现方案：

1. 在工作簿A中添加通用信息接收模块 #

首先在工作簿A里新建一个公共模块（比如命名为modCallerAuth），用来处理调用方用户信息的设置和读取：

' 工作簿A的公共模块 modCallerAuth
' 设置调用方传递的登录用户信息到Application自定义属性
Sub SetCallerLoggedInUser(userName As String)
    ' 先清理可能存在的旧属性
    On Error Resume Next
    Application.CustomDocumentProperties("CallerLoggedInUser").Delete
    On Error GoTo 0
    
    ' 添加新的自定义属性存储用户信息
    Application.CustomDocumentProperties.Add _
        Name:="CallerLoggedInUser", _
        LinkToContent:=False, _
        Type:=msoPropertyTypeString, _
        Value:=userName
End Sub

' 读取调用方传递的登录用户信息
Function GetCallerLoggedInUser() As String
    On Error Resume Next
    GetCallerLoggedInUser = Application.CustomDocumentProperties("CallerLoggedInUser").Value
    On Error GoTo 0
End Function

2. 修改工作簿A的启动逻辑（ThisWorkbook模块） #

调整Workbook_Open事件的执行顺序，优先检查调用方传递的用户信息，没有的话再走原有的本地凭据检查流程。同时确保在_Open事件完成前完成工作表的信息提交：

' 工作簿A的ThisWorkbook模块
Private Sub Workbook_Open()
    Dim loggedInUser As String
    Dim loginSource As String
    
    ' 第一步：优先获取调用方传递的用户信息
    loggedInUser = GetCallerLoggedInUser()
    
    If loggedInUser <> "" Then
        loginSource = "调用方"
        HandleUserLogin loggedInUser, loginSource
    Else
        ' 第二步：调用原有逻辑，检查本地凭据文件
        If CheckLocalCredentialsExists() Then
            loggedInUser = ReadLocalCredentials()
            loginSource = "本地凭据"
            HandleUserLogin loggedInUser, loginSource
        Else
            ' 无本地凭据，显示登录表单
            If ShowLoginForm() Then
                loggedInUser = frmLogin.txtUserName.Value
                SaveLocalCredentials loggedInUser
                loginSource = "手动登录"
                HandleUserLogin loggedInUser, loginSource
            Else
                ' 登录失败，关闭工作簿（可选）
                Me.Close SaveChanges:=False
                Exit Sub
            End If
        End If
    End If
    
    ' 这里执行你原本需要在_Open事件前完成的工作表修改/信息提交
    ' 示例：向Sheet1的A1单元格写入登录信息
    Me.Sheets("Sheet1").Range("A1").Value = "当前登录用户：" & loggedInUser & "（来源：" & loginSource & "）"
End Sub

' --------------------------
' 以下是原有逻辑的封装函数（你可以替换为自己的实际代码）
' --------------------------
' 检查本地凭据文件是否存在
Private Function CheckLocalCredentialsExists() As Boolean
    CheckLocalCredentialsExists = Dir("C:\YourAppPath\AuthCredentials.txt") <> ""
End Function

' 读取本地凭据文件中的用户名
Private Function ReadLocalCredentials() As String
    Dim fileNum As Integer
    fileNum = FreeFile
    Open "C:\YourAppPath\AuthCredentials.txt" For Input As #fileNum
    Line Input #fileNum, ReadLocalCredentials
    Close #fileNum
End Function

' 保存用户名到本地凭据文件
Private Sub SaveLocalCredentials(userName As String)
    Dim fileNum As Integer
    fileNum = FreeFile
    Open "C:\YourAppPath\AuthCredentials.txt" For Output As #fileNum
    Print #fileNum, userName
    Close #fileNum
End Sub

' 显示登录表单并返回是否登录成功
Private Function ShowLoginForm() As Boolean
    frmLogin.Show vbModal
    ShowLoginForm = frmLogin.IsLoginSuccess ' 假设你的登录表单有这个标识变量
End Function

' 统一处理登录后的逻辑
Private Sub HandleUserLogin(userName As String, source As String)
    MsgBox "欢迎回来，" & userName & "（登录来源：" & source & "）"
    ' 这里添加你的登录后初始化逻辑
End Sub

3. 调用方工作簿（如B）的标准调用方式 #

任何需要打开工作簿A的调用方，只需要在打开A之前调用A的SetCallerLoggedInUser方法传递用户信息即可，不需要修改工作簿A的代码：

' 调用方工作簿（如B）的示例代码
Sub OpenWorkbookAWithCurrentUser()
    Dim currentLoggedInUser As String
    
    ' 第一步：获取调用方自身的已登录用户信息（替换为你的实际获取逻辑）
    currentLoggedInUser = GetCurrentUser() ' 示例函数，返回当前用户
    
    ' 第二步：调用工作簿A的公共方法设置用户信息
    ' 注意：确保工作簿A的文件名和路径正确，宏已启用
    Application.Run "'WorkbookA.xlsm'!SetCallerLoggedInUser", currentLoggedInUser
    
    ' 第三步：打开工作簿A
    Workbooks.Open "C:\Path\To\WorkbookA.xlsm"
End Sub

' 模拟调用方获取当前登录用户的函数
Private Function GetCurrentUser() As String
    ' 实际场景中替换为调用方的用户获取逻辑
    GetCurrentUser = "JohnDoe"
End Function

关键优势说明 #

• 无硬编码调用方：工作簿A不需要知道任何调用方的存在，只要调用方遵循SetCallerLoggedInUser的传递规则即可，扩展性极强。
• 优先级合理：调用方信息优先于本地凭据，完全符合需求。
• 安全可靠：Application级自定义属性会在Excel重启后自动清除，不会残留旧的用户信息；同时如果调用方未传递信息，A会自动 fallback 到原有逻辑，不影响单独打开的场景。

内容的提问来源于stack exchange，提问作者Ádám Bukovinszki