无法使用ActiveX控件（Excel VBA）执行宏

问题：不同机器上的用户无法执行在我的机器和其他机器上正常工作的VBA宏

MS Excel 2010 v.14.0.7015.1000（32位）中的ActiveX表单控件存在问题。使用ActiveX按钮和文本框，我编写了VBA代码，在单击按钮时填充文本框

这段代码在我的机器上执行得很好，并且在其他机器上也运行过。我遇到其他用户无法单击按钮的问题。我告诉用户尝试使用Alt+F8键盘命令运行宏时遇到问题，但用户遇到了“需要对象”错误

我撞到墙了，我正在寻找任何可能有用的东西

还尝试了与MS更新相关的论坛，但没有成功：

提前谢谢

如果有帮助，请附上代码：

Public Sub CommandButton1_Click()


'Clear Working tab spreadsheet

    Worksheets("Sheet3").Range("A:AF").ClearContents

'-----------------

'Filter One Doc to correct process and requirement

'    Process

    Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
    Field:=4, _
    Criteria1:=Worksheets("MASTER TAB").Cells(2, ActiveCell.Column), _
    VisibleDropDown:=False

'    Requirement

    Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
    Field:=12, _
    Criteria1:=Worksheets("MASTER TAB").Cells(ActiveCell.Row, 2), _
    VisibleDropDown:=False

'-----------------

'Copy Filtered One Doc Data to Working Tab (Sheet3)

    Worksheets("One Doc Copy").Range("A2:AF12073").SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Worksheets("Sheet3").Range("A3")

'-----------------

'Return the number of results for counter (find safer place for value)

    Dim Counter As Integer
    Counter = Worksheets("MASTER TAB").Range("DX3").Value

'-----------------

'Populate Text Box

Dim process, ctrlTxt As String
process = Worksheets("MASTER TAB").Cells(2, ActiveCell.Column)

If Counter = 0 Then

    TextBox1.Text = "There are no assigned requirements for: " & process

Else

    TextBox1.Text = "Controls for: " & process & vbLf & vbLf _
    & "Requirement #: " & Worksheets("sheet3").Range("L3").Value & vbLf _
    & "Requirement Description: " & Worksheets("sheet3").Range("M3").Value & vbLf _
    & "Total Number of Controls: " & Counter & vbLf _
    & "-----------------" & vbLf & vbLf

    For x = 0 To Counter - 1

        ctrlTxt = ctrlTxt & "(" & x + 1 & ")" & vbLf & vbLf _
                    & "Control Type: " & Worksheets("sheet3").Cells(3 + x, 19) & vbLf & vbLf _
                    & "Control Description: " & vbLf & vbLf & Worksheets("sheet3").Cells(3 + x, 20) & vbLf & vbLf _
                    & "---" & vbLf

    Next

    TextBox1.Text = TextBox1.Text + ctrlTxt

End If

End Sub

---

您是否已在所有相关机器上应用MS更新并运行fixit工具？如果没有，您将无法共享工作簿和使用ActiveX控件。请显示“需要对象”消息的完整详细信息。你好，罗里，这是一个很好的观点。你好，克里斯托弗，我没有可用的图像，因为此人的计算机不可用。但是，唯一提到的文本是“objectrequired”。我觉得这很奇怪，因为我以前收到过运行时错误424“objectrequired”，但这次没有得到具体的错误号。