Question

我尝试使用许多网站建议的代码在打开Excel工作簿时自动运行宏列表。附件是ThisWorkbook上的VBA代码：

Private Sub WorkbookOpen()


MsgBox "STOP!  Do NOT attempt to highlight any fields manually!" & vbCrLf & _
     "Any highlighting will be overwritten upon reentry of this workbook.", vbOKOnly     +vbExclamation

Call Melanoma.ReformatDeplete
Call Melanoma.CScheckNO
Call Melanoma.CScheckMissing
Call Glioma.ReformatDeplete
Call Glioma.ReformatGBM
Call Glioma.CScheckNO
Call Glioma.CScheckMissing
Call Breast.ReformatDeplete
Call Breast.CScheckNO
Call Breast.CScheckMissing
Call Lymphoma.ReformatDeplete
Call Lymphoma.CScheckNO
Call Lymphoma.CScheckMissing
Call Lung.ReformatDeplete
Call Lung.CScheckNO
Call Lung.CScheckMissing
Call Miscellaneous.ReformatDeplete
Call Miscellaneous.CScheckNO
Call Miscellaneous.CScheckMissing
Call Normals.ReformatDeplete
Call Normals.CScheckNO
Call Normals.CScheckMissing


End Sub

显然，我将工作簿保存为2010年启用宏的工作簿，但是当我打开工作簿时，没有任何事情发生，我仍然需要点击VBA中的“运行按钮”

有什么建议吗？

谢谢！

Answer 1

你很近，只需添加下划线

Private Sub Workbook_Open()

Answer 2

在工作簿打开

上运行宏有两种主要方法

波特兰亚军在他的帖子中已经提到过。 Private Sub Workbook_Open()
在模块中使用Sub Auto_Open()。我们在此时，您可能还想查看THIS。该链接大约是Configure a macro to run automatically upon opening a workbook

Private Sub Workbook_Open()优于Sub Auto_Open()，因为该链接中提到了很多原因。

Answer 3

宏不会自动运行的原因有两个：

安全设置
宏不在工作簿代码区域中

什么是在打开时自动运行宏的好方法

3 个答案: