Excel VBA：使用自动启动运行下载的工作簿时出错

Question

我的工作簿有问题，一旦打开工作簿就会运行一个子例程。仅当第一次下载并运行工作簿时才会出现此问题。我已经设法通过在 ThisWorkbook -> Workbook Open 中有一个包含以下代码的工作簿来简化问题：

Private Sub Workbook_Open()
Sheet3.Activate
End Sub

显示的错误是“对象'_worksheets'的方法'激活'失败”，在我的原始程序中（没有简化，也没有在这里写，因为它很广泛）错误是不同的。

如何重现错误：

上传工作簿 -> 下载工作簿 -> 运行工作簿 -> 询问时启用内容（宏） -> 工作簿打开并运行 sheet3.activate -> 我收到错误 -> 关闭工作簿 -> 打开工作簿（没有错误，表 3激活） -> 打开工作簿时永远不会出错 -> 上传工作簿 -> 下载并运行工作簿 -> ...再次出错

就好像子例程在第一次设置工作簿时中断了 Excel，因此没有设置为激活工作表。

我真的很想有一个带有启动宏（显示用户窗体、隐藏 Excel）的工作工作簿，我可以发送给其他人而不会遇到错误。

有没有办法解决这个问题？

编辑：程序中没有其他代码。只有我写的。

编辑2：这可能指向罪魁祸首：当我下载后第一次运行工作簿时，会弹出错误，当错误出现时，我可以在Windows任务栏上看到工作簿的两个实例，一个名称后带有 [Protected view] 的。就好像子例程在工作簿从保护状态变为正常之前运行（在单击启用内容之后......）。如果这有任何意义。

Answer 1

我没有看到您的所有代码，尤其是您激活的工作表中的代码，但也许以下内容可能会有所帮助：

'*******************************************************************************************************************************
' To activate the active worksheet
' Bug in Excel: The Worksheet_Activate event does not fire for a sheet that is currently active or may generate errors
' The solution is to call it explicitely, but make sure that Worksheet_Activate() is declared as Public in the worksheet code
'*******************************************************************************************************************************
Public Sub activateActiveSheet()

On Error Resume Next
ThisWorkbook.ActiveSheet.Worksheet_Activate
Err.Clear: On Error GoTo 0

End Sub