Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Скрыть ленту, вкладки.
 
Добрый день.

Хотелось скрыть ленту со вкладками от кривых рук. Как это можно сделать через макрос или это можно сделать в Visual Basic, к примеру как скрыть лист через пункт Visible.
 
ЛЕНТА
на 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
Изменено: buchlotnik - 6 Дек 2018 19:05:57
Каждому For свой Next
Страницы: 1
Читают тему (гостей: 1)
Наверх