在excel启动时运行两个模块

我有两个模块，我想在工作簿打开时执行什么是最好的方式来做到这一点。 下面是我的模块。

模块1

Public Sub workbook_open() Dim YesOrNoAnswerToMessageBox As String Dim QuestionToMessageBox As String QuestionToMessageBox = "Do you Agree?" YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Do you agree with disclaimer") If YesOrNoAnswerToMessageBox = vbNo Then ActiveWorkbook.Close savechanges:=False Else MsgBox "Congratulations!" End If End Sub 

模块2

  Sub workbook_open() Dim Expired As Date Expired = "31 March 2016" If Now() < Expired Then Sheet1.Visible = True Sheet2.Visible = True Sheet3.Visible = True Sheet6.Visible = True Sheet7.Visible = True Sheet8.Visible = True Sheet9.Visible = True Sheet13.Visible = True Sheet5.Visible = True Sheet10.Visible = xlSheetHidden End If If Now() > Expired Then MsgBox "This file is no longer in use!" Sheet10.Visible = True Sheet1.Visible = xlSheetVeryHidden Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet6.Visible = xlSheetVeryHidden Sheet7.Visible = xlSheetVeryHidden Sheet9.Visible = xlSheetVeryHidden Sheet13.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet8.Visible = xlSheetVeryHidden End If End Sub 

Answer 1

Workbook_Open()事件已经在ThisWorkbook模块中声明，而不是标准的代码模块。

您可以重新命名您的当前程序，只需从打开的事件中调用它们，如下所示：

---

在Module1 ：

 Sub Foo() MsgBox "First Message" End Sub 

在Module2 ：

 Sub Bar() MsgBox "Second Message" End Sub 

然后在ThisWorkbook模块中：

 Public Sub Workbook_Open() Foo Bar End Sub 

---

看看你现有的代码，你只需要在你的If块中join第二个子代码：

在ThisWorkbook模块中：

 Public Sub workbook_open() Dim YesOrNoAnswerToMessageBox As String Dim QuestionToMessageBox As String QuestionToMessageBox = "Do you Agree?" YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Do you agree with disclaimer") If YesOrNoAnswerToMessageBox = vbNo Then ActiveWorkbook.Close savechanges:=False Else MsgBox "Congratulations!" OpeningProcedure '// <~~ Note this, to call the other sub End If End Sub 

在Module1 ：

  Sub OpeningProcedure() Dim Expired As Date Expired = "31 March 2016" If Now() < Expired Then Sheet1.Visible = True Sheet2.Visible = True Sheet3.Visible = True Sheet6.Visible = True Sheet7.Visible = True Sheet8.Visible = True Sheet9.Visible = True Sheet13.Visible = True Sheet5.Visible = True Sheet10.Visible = xlSheetHidden End If If Now() > Expired Then MsgBox "This file is no longer in use!" Sheet10.Visible = True Sheet1.Visible = xlSheetVeryHidden Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet6.Visible = xlSheetVeryHidden Sheet7.Visible = xlSheetVeryHidden Sheet9.Visible = xlSheetVeryHidden Sheet13.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet8.Visible = xlSheetVeryHidden End If End Sub