Set TBar = Application.CommandBars.Add
        With TBar
            .Name = "Вяртсиля"
            .Position = msoBarTop
            .Visible = True
        End With
    For I = 1 To 6
        Application.CommandBars("Вяртсиля").Controls.Add
        With Application.CommandBars("Вяртсиля").Controls(I)
            Select Case I
                Case 1
                    .FaceId = 1106
                    .OnAction = "MainModule.NextMonth"
                    .Caption = "График на следующий месяц"
                Case 2
                    .FaceId = 1657
                    .BeginGroup = True
                    .OnAction = "MainModule.Plan"
                    .Caption = "План охраны"
                Case 3
                    .FaceId = 602
                    .OnAction = "MainModule.Smena"
                    .Caption = "Фильтр"
                    .BeginGroup = True
                Case 4
                    .FaceId = 607
                    .OnAction = "MainModule.Category"
                    .Caption = "Изменить категорию сотрудника(ов)"
                    .BeginGroup = True
                Case 5
                    .FaceId = 162
                    .OnAction = "MainModule.AnalisJob"
                    .Caption = "Анализ нагрузки за месяц"
                Case 6
                    .FaceId = 1763
                    .OnAction = "MainModule.Zastavka"
                    .Caption = "Показать заставку при следующем запуске"
                    If ThisWorkbook.Worksheets("БЛАНК ПЛАНА").Range("K61").Value = " " Then
                        .Enabled = True
                    Else
                        .Enabled = False
                    End If
                    .BeginGroup = True
            End Select
        End With
    Next I