Excel VBA：如何将用户窗体文本框内容传递到工作表ActiveX标签？（遇错误438）

错误原因分析 #

• 卸载窗体后引用已销毁的控件
  你在Unload Me之后尝试访问Login.tbxUsername.Value，但窗体卸载后，整个窗体对象及其控件已被销毁，此时引用会触发对象不存在的错误，这是438错误的核心原因之一。
• ActiveX控件访问方式错误
  工作表上的ActiveX标签不属于Shapes集合，而是OLEObjects集合，用Shapes访问ActiveX控件会导致“对象不支持该属性或方法”的438错误。

修正后的代码 #

Dim user As String
Dim password As String
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Sheets("Go to")

user = Me.tbxUsername.Value
password = Me.tbxPassword.Value

If (user = "nazar.f" And password = "BCG300") Or _
   (user = "barri.d" And password = "CGI2043") Or _
   (user = "moros.j" And password = "TDI2039") Or _
   (user = "reyes.l" And password = "PDQ3021") Or _
   (user = "matt.a" And password = "GER0998") Or _
   (user = "huang.c" And password = "HYG2094") Then
    Application.Visible = True
    wsh.Activate
    ' 用提前保存的user变量赋值，避免访问已卸载的窗体控件
    ' 正确访问ActiveX标签的Caption属性
    wsh.OLEObjects("lblWelcome").Object.Caption = user
    Unload Me ' 卸载窗体放在赋值之后
Else
    MsgBox "Invalid Login Credentials. Please try again.", vbOKOnly + vbCritical, "Invalid Credentials"
End If

关键修改点 #

• 将Unload Me移到赋值操作之后，确保在窗体销毁前已将用户名保存到user变量，后续直接使用变量完成赋值。
• 替换ActiveX标签的访问方式：用wsh.OLEObjects("lblWelcome").Object.Caption替代原有的Shapes访问逻辑，这是操作工作表ActiveX标签文本的正确方法。

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