ЛЕНТАна VBA:
Код |
---|
Sub hide_ribbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
End Sub
Sub show_ribbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
End Sub
|
В конкретном файле положить в события книги:
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
End Sub
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
End Sub
|
Или в разметку файла (Ribbon XML Editor в помощь):
Код |
---|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="true">
</ribbon>
</customUI> |
ЯРЛЫЧКИ ЛИСТОВКод |
---|
Sub sVtags()
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
End Sub |
ВИДИМОСТЬ ЛИСТОВКод |
---|
Sub sh_vis()
Sheets(название или номер).visible = 2 'суперскрытый
' Sheets(название или номер).visible = -1 'видим
End sub |