Запуск макросов 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