Excel巨集執行階段錯誤 57121

之前曾經在Excel內撰寫VBA程式，不過最近發現程式出現了執行階段錯誤 57121的錯誤。

相關程式碼如下：

Private Sub Workbook_Open()
    With Worksheets("TEST").ComboBox1
        .AddItem "全部"
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        .AddItem "5"
        .AddItem "6"
        .AddItem "7"
    End With
    Worksheets("TEST").ComboBox1.Text = Worksheets("TEST").ComboBox1.List(0)
End Sub

這一段程式碼主要是當Excel開啟時做相關下拉元件的初始話動作，針對TEST這個sheet

而如果選擇偵錯的話，錯誤行數會停留在With Worksheets("TEST").ComboBox1

後來幾經測試，看了一下設定是否有問題，發現可能是ActiveX的設定

不知怎該檔案這個設定勾選了第一項停用所有的控制項，因此在這邊選擇了第三項，存檔

後重新開啟即可正常運作!!