Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2018, 18:00   #1
jiura
 
Регистрация: 12.02.2009
Сообщений: 5
По умолчанию Отключение макросом ленты Excel 2010 работает нестабильно

Здравсвуйте!
Проблема в следующем...Делаю приложение на Excel, но хочу чтобы Excel был полностью скрыт. ДЛя этого в интернете нашел процедуру готовую ChangeInterface которая отлично скрывает Excel
Вот она

Код:
Public Sub ChangeInterface(Value As Boolean)
Dim ZoomFactor As Single
'On Error Resume Next
   
   '
   ActiveWindow.DisplayWorkbookTabs = Value
   '
      '
      Application.Caption = SystemName
     ChangeApplicationIcon
   End If
   '
    With Application
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        For Each Sh In .Sheets
        Sh.Select
        With .ActiveWindow
            .Caption = IIf(Value = True, .Parent.Name, "")
            .DisplayHeadings = Value:
            .ScrollRow = 1
            .ScrollColumn = 1
            '.DisplayGridlines = Value
            '.DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
            .DisplayWorkbookTabs = Value
        End With
        '
        Next
        
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        fff
    End With
End Sub
Все отлично работает и претензий к этому нет. Проблемы возникают, если я хочу чтобы еще и заставка Excel при запуске не показывалась. Для этого я написал exe на другом языке программирования (delphi) и через ole запускаю Excel. Так вот, вот эта строка (нашем методом проб), которая убирает панель меню Excel
Цитата:
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
начинает работать по другому и вместе с панелью Excel-а удаляет еще и шапку окна. Т.е. программа открывается, а шапки вверху с названием программы, кнопками свернуть и закрыть просто нет. Ее можно добавить потом, если два раза вызвать эту же команду VBA с атрибутами True и False. Но делать это приходится не в момент загрузки (тогда ничего не работает) а по отдельной кнопке уже на этапе работы И выглядит все это некрасиво: сначала шапки не было, потом появилась.....

Есть идеи как сделать скрытие меню Excel по другому или показать обратно окно?
jiura вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Настройка ленты для одного единственного файла в Excel 2010 ymnuhj Microsoft Office Excel 3 20.04.2012 10:32
Маленькая проблема с макросом в excel 2010 Инженер-Джони Microsoft Office Excel 2 16.03.2012 15:56
Книга Excel c макросом VBA работает только на моем компе, на других она считает не правильно...почемуууу? Lays Microsoft Office Excel 8 13.12.2010 11:29
Удаление ленты в 2007 excel и создание своего меню Raikhman Microsoft Office Excel 2 19.10.2010 00:18
Жесткий диск нестабильно работает VladimirVB Компьютерное железо 8 26.11.2008 20:19