在一台计算机上打开工作簿错误代码 32809，但在另一台计算机上打不开

我有一个 Excel 2013 宏工作簿。

本工作簿在过去 6 个月中一直运行良好。今年的第一天，我遇到了下面的问题，代码如下。这行代码所做的就是在打开工作簿时将 activex 复选框控件设置为 true。

Sheets(WSCHARTS).chkAllJPM.value = True

我设法通过之前的帖子解决了这个问题。答案是以下说明。然而，第一天回到办公室的团队成员在使用此工作簿时遇到了问题。他们再次每天使用这本工作簿，没有出现任何问题。代码在上面的同一行上进行调试，错误代码号为 32809。

我尝试按照为我解决问题的相同说明进行操作，但没有感到高兴。我无法在我的计算机上复制这些问题。不确定是什么原因导致此错误？

这是子例程。请注意 WSCHARTS 是 public const string - 它的值为“charts”

Sub SetDefaultSetting()

' set the default view upon opening the spreadsheet

Dim ws As Worksheet
Dim wsTime As Worksheet
Set wsTime = ThisWorkbook.Sheets(WSTSJPM)
Set ws = ThisWorkbook.Sheets(WSCHARTS)

' get last date
Dim lRow As Long
lRow = wsTime.Range("A65536").End(xlUp).Row
ws.DropDowns("DropDownStart").ListFillRange = wsTime.Name & "!" & wsTime.Range("A2:A" & lRow).Address
ws.DropDowns("DropDownEnd").ListFillRange = wsTime.Name & "!" & wsTime.Range("A2:A" & lRow).Address

ws.Range(COLDATES & "1") = 1                      ' start date is 12 dec 2013
ws.Range(COLDATES & "2") = lRow - 1               ' latest avaiable date

' control are linked to cells so just need to change their cell values
ws.Range("C1") = 6
ws.Range("D1") = 7
ws.Range("E1") = 8
ws.Range("F1") = 9
ws.Range("G1") = 10

' rest should be blank
ws.Range("H1") = 1
ws.Range("I1") = 1
ws.Range("J1") = 1
ws.Range("K1") = 1
ws.Range("L1") = 1

Sheets(WSCHARTS).chkAllJPM.value = True
ws.OLEObjects("chkBOAML5").Object.Enabled = False

Set wsTime = Nothing
Set ws = Nothing

UPDATE

因此，我创建了一个新工作簿，只需在 Sheet1 上放置一个 activex 复选框控件并将其重命名为 chkTest。

我添加了下面的代码。该代码可以在我的电脑上运行，但不能在我同事的计算机上运行。现在这真是令人沮丧。有任何想法吗？

 Private Sub Workbook_Open()

    Sheets("Sheet1").chkTest.Value = True

 End Sub

另一个更新

不确定这是否与我的问题有关。当我按照前面提到的说明进行操作时，我确实注意到在我的 c:\users\username\Appdata\local\Temp\VBE 目录中我有一个我的同事没有的额外文件。

我有 MsForms.exd 和 RefEdit.exd。我的同事只有 MsForms.exd 文件。这会导致任何问题吗？

希望我的最后一次更新

因此，将上面更新中的代码更改为下面的代码现在可以在我们的两台计算机上运行。有谁能够解释为什么或有什么区别吗？

Private Sub Workbook_Open()

Dim ws As Worksheet
Set ws = Sheets("Sheet1")
ws.OLEObjects("chkTest").Object.Value = False

End Sub

只有一种解决方案可以 100% 工作（相信我，我一直在公司环境中研究（可以说）所有可能的解决方案）：摆脱嵌入的 ActiveX 控件.

IMO，你有三个选择：

1. 选项 1 是将控件的功能移至功能区中，也许根据 ActiveX 控件添加用户窗体（当然，命令按钮不需要用户窗体）。这里的工作量很大，但这是最干净、最安全的方法。

2. 选项 2 是用表单控件替换 ActiveX 控件。这确实很糟糕，因为您将失去 ActiveX 控件提供的大部分功能，但它仍然是一个选项。

3. 选项 3 是用 Shape 对象替换 ActiveX Controls；一些新的具体问题需要处理（例如，保护/锁定），但您可以获得一系列漂亮的格式选项:)

无论如何，您都需要返工/更新您的工作簿。我主要使用选项 1，也使用了一些选项 3。请注意，您可以在同一个应用程序中混合使用上述选项。