Показать ленту Excel 2007 в файле XLS с помощью Excel VBA

Question

У меня есть панель управления Excel, которая работает так, что перед закрытием файла Excel я хочу отобразить всю ленту EXCEL, чтобы в следующий раз при открытии Excel приложение / excel показывало ленту. В настоящее время он не показывает ленту, если Excel открыт.

Private Sub Workbook_BeforeClose (отменить как логическое)

    При ошибке возобновить следующее

    Application.ScreenUpdating = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    Application.DisplayStatusBar = True
    Application.DisplayScrollBars = True
    Application.ScreenUpdating = True
    Простыни ("Введение"). Выберите  

End Sub


Это файл.xls с макросом, который должен работать в Excel 2003 и Excel 2007.

Кроме того, если нажать "Отмена", я не хочу показывать ничего из вышеперечисленного / ленты, так как пользователь должен получить защищенное представление панели мониторинга Excel.

Answer 1

Если лента закрыта по умолчанию, вы можете снова открыть ее, дважды щелкнув одну из вкладок (например, вкладку "Главная").

(Смотрите это для более подробной информации).

Однако, если вы хотите написать событие, которое будет иметь место при открытии книги, используйте Workbook_Open() событие из ThisWorkbook Объект Excel.

Answer 2

Попробуйте это Application.ExecuteExcel4Macro " show.toolbar(""Ribbon"",true)", чтобы скрыть Application.ExecuteExcel4Macro " show.toolbar(""Ribbon"",false)"