通過打開工作表啓動VBA宏

Question

如何通過打開Excelsheet來啓動宏。我已經把這個代碼：

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  

進入Private Sub Workbook_Open()。但它並沒有去第二個代碼。 我在這裏做錯了什麼？

兩個代碼的Public Sub Workbook_Open()

'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 

兩個代碼的工作之上，但它並沒有停止呼叫EnterInDesignMode()，所以它不叫ExitInDesignMode()。

Answer 1

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

編輯您對此的代碼，如發表在我評論的鏈接中。

來源：https://groups.google.com/forum/#!topic/microsoft.public.excel.programming/XN27a-Gxz6g