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

Question

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

Private Sub Workbook_BeforeClose(cancel As Boolean)

    On Error Resume Next

    Application.ScreenUpdating = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    Application.DisplayStatusBar = True
    Application.DisplayScrollBars = True
    Application.ScreenUpdating = True
    Sheets("Introduction").Select  

End Sub


This is an .xls file with Macro and supposed to work in Excel 2003 and Excel 2007.

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

Answer 1

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

(Подробнее см. , это ).

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

Answer 2

попробуйте это Application.ExecuteExcel4Macro "show.toolbar (" "Лента" ", true)" прятаться Application.ExecuteExcel4Macro "show.toolbar (" "Лента" ", false)"