Sub SetEnvironment()\r
\'----------------------------------------\r
\' Сохранение текущего состояния Excel и подготовка среды для приложения  "Поставка" \r
\'----------------------------------------\r
    If ApplyExcel = False Then\r
        ThisWorkbook.Worksheets("Инструкция").Activate   \'Создать лист  "Инструкция"  -> wsHome\r
    End If\r
    With Application\r
        .Caption =  "ПОСТАВКА"        \'Это название крупно выделяется на панели задач!\r
        .ScreenUpdating = False\r
    End With\r
    With mobjAppState               \'специально создан КЛАСС, чтобы сохранить в ОБЪЕКТЕ\r
        .GetState                   \'состояние "Видима/Невидима" каждой панели инструментов.\r
        .HideAllCommandBars         \'ОБЪЕКТ сохраняет свою актуальность с момента создания\r
    End With                        \'до момента удаления вне зависимости от активности VBA-кода\r
    With Application\r
        .DisplayFormulaBar = False  \'Для увеличения количества видимых строк в поставке\r
        .DisplayStatusBar = True    \'Для наблюдения за состоянием обновления справочников из БД\r
    End With\r
    ActiveWindow.Caption = ""       \'Удаляем MS Excel Имя_книги_с_программой\r
    With ThisWorkbook.Windows( 1 )\r
        .DisplayWorkbookTabs = False    \'скрываем ярлыки рабочих листов\r
    End With\r
    CreateCommandBar                \'Создаём панель для задачи  "Формирование поставки" \r
    If ApplyExcel = False Then\r
        ShowHome                    \'юзерА, прочитайте инструкцию!\r
    End If\r
End Sub\r
\r
Sub CreateCommandBar()\r
\' ----------------------------------------\r
 
\' создание пользовательской панели команд приложения "Поставка":\r
\' ----------------------------------------\r
 
    Dim MenuBarBool As Boolean\r
\'   MenuBarBool:   True to replace the active menu bar with the new command bar.\r
\'                  The default value is False.\r
    \r
    If ApplyExcel Then\r
        MenuBarBool = False         \'Создаётся невидимая (скрытая) панель\r
    Else\r
        MenuBarBool = True          \'\r
    End If\r
\r
    With Application.CommandBars.Add(COMMANDBAR_NAME, msoBarTop, MenuBarBool, True)\r
        .Visible = True             \'"Поставка"\r
        .Position = msoBarTop\r
        .Protection = msoBarNoChangeVisible + msoBarNoCustomize\r
        With .Controls\r
            With .Add(msoControlButton)     \'индекс  0 \r
                .Caption =  "Изменения" \r
                .Style = msoButtonCaption\r
                .OnAction =  "ShowHome"       \'ShowHome - в этом модуле\r
            End With\r
            With .Add(msoControlButton)     \'индекс  1 \r
                .Caption =  " Создать " \r
                .Style = msoButtonCaption\r
                .OnAction =  "ShowUFSup"      \'Передать управление Init из ufSup\r
            End With\r
            With .Add(msoControlButton)     \'индекс  2 \r
                .Caption =  " Открыть " \r
                .Style = msoButtonCaption\r
                .OnAction =  "ShowFiles"      \'Использовать поиск файла по шаблону\r
            End With\r
            With .Add(msoControlButton)     \'индекс  3 \r
                .Caption =  " Редактировать " \r
                .Style = msoButtonCaption\r
                .OnAction =  "CallUFWares"    \'\r
            End With\r
            With .Add(msoControlButton)     \'индекс  4 \r
                .Caption =  " Печать " \r
                .Style = msoButtonCaption\r
                .OnAction =  "SetPrintOut"    \'\r
            End With\r
\'...............................................\r
            If ApplyExcel = False Then\r
                With .Add(msoControlButton) \'индекс 5 Or 6\r
                    .Caption = " Режим Excel "\r
                    .Style = msoButtonCaption\r
                    .OnAction = "RestoreExcelForSellerStatus"\r
                End With\r
            End If\r
        End With\r
    End With\r
End Sub\r
\r
Sub DeleteCommandBar()\r
\' ----------------------------------------\r
 
\' удаление пользовательской панели команд приложения "Поставка"\r
\' ----------------------------------------\r
 
    On Error Resume Next\r
    Application.CommandBars(COMMANDBAR_NAME).Delete\r
End Sub\r
\r
Sub RestoreEnvironment()\r
\'----------------------------------------\r
\' Восстановление Excel в первоначальное состояние\r
\'----------------------------------------\r
    Application.ScreenUpdating = False\r
    If ApplyExcel = False And DelSellerForm = True Then\r
        Application.Caption = Empty    End If\r
    With mobjAppState\r
        .RestoreState\r
    End With\r
    With Application.CommandBars("Worksheet Menu Bar")\r
        .Reset\r
        If DelSellerForm = False Then    \'\r
            With .Controls\r
                With .Add(msoControlButton)\r
                    .Caption =  "Поставка" \r
                    .Style = msoButtonCaption\r
                    .OnAction =  "RestoreSellerStatus" \r
                End With\r
            End With\r
        End If\r
    End With\r
    With ThisWorkbook.Windows( 1 )\r
        .DisplayWorkbookTabs = True\r
    End With\r
    DeleteCommandBar\r
    With ActiveWindow\r
        .DisplayHorizontalScrollBar = True\r
        .DisplayVerticalScrollBar = True\r
        .Caption = Empty\r
    End With\r
End Sub\r

    If ApplyExcel = False Then
        ThisWorkbook.Worksheets( "Инструкция" ).Activate   'Создать лист  "Инструкция"  -> wsHome
    End If

    With Application
        .Caption =  "ПОСТАВКА"        'Это название крупно выделяется на панели задач!
        .ScreenUpdating = False
    End With