通过打开工作表启动VBA宏

如何通过打开Excel工作表来启动宏。我已经把这个代码：

Public Sub Workbook_Open()

Application.ScreenUpdating = False

With Tabelle1.ListBox1

    .AddItem "TEST1"
    .AddItem "TEST2"
    .AddItem "TEST3"
End With

With Tabelle1.ListBox2

    .AddItem "TEST4"
    .AddItem "TEST5"
End With    

With Tabelle1.ListBox1
    .Width = 140.25
    .Height = 255.25

End With
With Tabelle1.ListBox2
    .Width = 78
    .Height = 69.75    
End With

Call EnterInDesignMode
Call ExitInDesignMode
Application.ScreenUpdating = True
End Sub    

进入

专用子工作簿\u Open（）

。但它不会转到第二个代码。 我做错了什么

这两个代码都位于

公用子工作簿\u Open（）上方

这两个代码都在工作，但它不会停止调用
EnterInDesignMode（）
，因此它不会调用
ExitInDesignMode（）

编辑代码，你必须这样做，因为是张贴在我的评论与链接

来源：
我们能看到您的工作簿\u open sub吗？您读过吗：它告诉您要将工作簿\u open sub放入模块中。它不应该在模块中。@99moorem我已经编辑了线程。您现在应该可以看到它了。@Luuklag不，我已经将它放在私有子工作簿_open（）的上方来调用它，但它只调用EnterIndexignMode（）而不调用ExitInDesignMode（）。您希望它运行什么代码？另一艘潜艇？
'first Code
    Sub EnterInDesignMode()
        With Application.CommandBars.FindControl(ID:=1605)
            .Execute
        End With
    End Sub

'Second Code
Sub ExitInDesignMode()
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
    End With
End Sub

With CommandBars("Exit Design Mode").Controls(1)
    If .State = msoButtonDown Then .Execute
 End With