armandarmand/task1/task1-ticket1/_ref/Excel/Examples/ThisWorkbook.cls

Private Sub Workbook_Open()







    'Opens the VBA Editor







    'Call Open_VBA_Editor







End Sub























Private Sub Open_VBA_Editor()







    Application.CommandBars.FindControl(ID:=1695).Execute







End Sub